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ABSTRACT 

A  personnel  system  is  simulated  so  that  the  personnel  planner  can 
use  this  simulation  as  a  tool  to  help  solve  manpower  problems  utilizing 
the  benefits  of  a  computer.  The  input  parameters  are  time  in  grade  and 
time  in  the  system  of  each  individual,  the  manpower  requirements  in 
each  grade,  annual  input  to  the  system,  and  the  number  of  years  to  run 
the  simulation.  The  dynamic  properties  of  the  simulation  are  loss  rates 
and  promotion  rates.  A  decision  maker  runs  the  model  to  determine  the 
effects  of  changes  in  the  input  parameters.  One  of  the  problems  that 
can  be  solved  with  the  model  is  manpower  shortage.  A  sample  problem  is 
presented.  Flowcharts  and  a  listing  of  the  Fortran  program  are  included. 
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I.   INTRODUCTION 

Personnel  systems  composed  of  a  formal  rank  or  grade  structure  that 
utilize  a  promotion  procedure  to  move  persons  through  or  out  of  the 
system  are  commonplace  in  modern  large  organizations.  A  classical  ex- 
ample is  the  corps  of  the  military  services  of  any  country.  Because  of 
the  universality  of  such  systems,  the  problems  of  maintaining  stability 
within  the  systems  may  also  be  common  to  them.  Accordingly,  I  am  going 
to  focus  my  study  on  a  navy  personnel  system,  that  could  be  found  in 
any  small  or  mid-size  military  organization. 

The  purpose  of  the  study  of  such  a  system  is  to  develop  a  model  to 
simulate  the  system  so  that  the  personnel  planner  can  use  this  simula- 
tion as  a  tool. 

Traditionally,  it  was  relatively  easy  in  the  navy  to  forecast  and 
preserve  the  stability  of  the  system  because  of  sufficient  manpower. 
The  personnel  planner  could  operate  with  "rules  of  thumb"  with  no  diffi- 
culty. But  now  maintaining  the  system  is  more  difficult  because  of 
problems  in  recruiting  and  the  longer  time  spent  in  training  personnel 
as  a  result  of  the  greater  complexity  of  the  weapons.  There  are  also 
the  constraints  of  manpower  resources  and  the  budget  and  several  other 
new  problem  areas.  As  a  result  effective  management  of  personnel  re- 
sources has  become  an  increasingly  critical  element  of  a  navy's  ability 
to  meet  its  operational  commitments  and  achieve  its  long-range  objectives 

Personnel  management  is  associated  with  many  programs,  plans,  and 
policies  whose  purpose  is  to  initiate  and  control  the  flow  of  personnel 
through  the  system  to  insure  sufficient  personnel  resources  in  the 
various  occupational  specialties  or  ratings  for  each  grade  at  specific 


points  in  time .  There  are  four  fundamental  but  interrelated  tasks 
involved  in  personnel  planning: 

1 .  Maintain  personnel  inventories  to  accomplish  a  spectrum  of 
naval  missions. 

2.  Project  current  inventories  forward  in  order  to  determine  the 
feasibility  of  meeting  future  needs. 

3.  Compare  future  requirements  and  predicted  resources  to  deter- 
mine areas  of  potential  shortage  or  surplus.  This  is  necessary 
to  prevent  or  correct  imbalances  or  deficiencies  before  they 
become  critical;  that  is,  before  corrective  action  is  either 
impossible  or  very  costly. 

h»     Analyze  the  projected  effects  of  present  and  proposed  personnel 
policies  in  order  to  evaluate  the  possible  outcomes.   To  do 
this,  it  may  be  desirable  to  test  the  feasibility  of  changes 
by  programming  those  changes  in  a  model  which  simulates  the 
behavior  of  the  personnel  system. 
A  conventional  personnel  cycle  (as  described  in  Ref .  1  )  functions 
as  shown  in  Figure  1 .  A  planning  data  base  provides  input  to  the  pro^ 
jection  module  in  the  form  of  starting  inventories  and  rates  of  change. 
The  projection  model  acts  on  these  inventories  by  calculating  the  major 
input  output  flow  in  the  personnel  system  and  producing  a  projection  of 
the  force,  by  size  and  composition,  at  specified  times  in  the  future <> 
This  output  then  becomes  input  for  programs  which  produce  plans  for 
career  development,  enlisted  advancement,  strength  management,  training 
input,  and  personnel  policy  evaluation.  The  execution  of  such  plans 
triggers  retirement,  promotion,  separation,  and  training  actions  through- 
out the  system.  These  actions  are  consequently  recorded  by  the  personnel 
accounting  system  and  become  new  input  for  the  data  base. 
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The  specific  purpose  of  this  paper  is  to  develop,  analyze,  and 
simulate  a  projection  model  of  such  a  navy  officer  system.  The  goal 
that  is  sought  is  to  create  a  tool  to  help  the  personnel  manager  solve 
the  types  of  problems  enumerated  above  using  the  benefits  of  a  computer. 
Since  the  personnel  planner  is  a  manager  and  has  to  worry  about  the 
substance  of  the  problem  in  order  to  solve  it  in  any  optimal  way,  to 
divert  his  attention  to  the  techniques  of  solving  it  is  obviously 
detrimental.  Thus,  the  idea  is  to  develop  a  computerized  simulation 
to  give  to  the  manager  the  technique  to  solve  the  problem  without  taking 
his  attention  away  from  the  substance  of  the  problem.  This  projection 
model  will  permit  the  personnel  planner  to  accommodate  rapidly  to  modi- 
fications in  requirements  and  to  detect  problem  areas,  such  as  shortage 
or  surplus  of  personnel  at  a  point  in  time  and  in  grade.  The  projection 
model  will  also  provide  the  tool  to  test  alternative  manpower  plans  and 
policies  prior  to  the  implementation. 


II.  MODEL  FORMULATION 

To  build  the  model,  I  am  going  to  take  as  an  example  the  officer 
corps  of  a  navy  organization. 
A.   GRADE  STRUCTURE 

The  input  to  this  system  is  through  the  naval  academy  only.   There 
are  five  years  of  study  before  entering  the  officer  system.  The  losses 
in  this  part  are  not  going  to  be  considered ,  so  the  number  of  cadets 
entering  the  academy  are  going  to  enter  the  officer  system  after  five 
years . 

The  first  contract  to  serve  is  made  for  7  years  starting  the  day 
of  entering  the -officer  system.  Then  there  is  no  further  contract  so 
separation  by  resignation  is  possible. 

The  system  is  composed  of  eight  grades.  They  are:  ensign(P1  ), 
lieutenant  junior  grade  (P2),  lieutenant  (P3),  lieutenant  commander  (Plj), 
commander  (P5>),  captain  (P6),  rear  admiral  (P7),  and  vice  admiral  (P8). 

There  are  two  consideration  in  each  grade:  the  minimum  time  in  the 
grade  to  be  eligible  for  promotion  and  the  maximum  permissible  time  in 
each  grade.  These  considerations  are  different  for  each  grade  and  are 
in  Table  I. 

For  ensign,  three  years  is  the  minimum  requirement  and  four  the 
maximum.  This  means  that  an  ensign  will  be  eligible  for  promotion  only 
one  time  before  being  forced  to  leave  the  system  if  he  is  not  promoted. 
Similar  restrictions  apply  to  the  other  grades. 

For  Vice  Admiral  there  is  no  minimum  time  for  promotion  because  it 
is  the  highest  grade  in  the  system,  and  the  maximum  does  not  exist  in 
terms  of  time  in  grade.  The  maximum  time  in  the  system  is  35>  years. 
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TABLE  I 
MINIMUM  AND  MAXIMUM  TIMES  IN  GRADE  FOR  EACH  GRADE 


CODE 

GRADE 

MINIMUM  REQUIRED 

MAXIMUM  PERMISSIBLE 

TIME 

IN 

GRADE 

TIME  IN  GRADE 

PI 

ENSIGN 

3 

it 

P2 

LIEUTENANT  J.G. 

3 

6 

P3 

LIEUTENANT 

h 

10 

PU 

LT.  COMMANDER 

h 

8 

P5 

COMMANDER 

h 

8 

P6 

CAPTAIN 

k 

8 

P7 

REAR  ADMIRAL 

k 

8 

P8 

VICE  ADMIRAL 

maximum  time 
in  the  system 
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Be   LOSSES 

The  losses  in  each  grade  because  of  different  reasons  such  as  death, 
retirement ,  or  resignations  are  lumped  together.  The  percent  losses  in 
each  grade,  with  the  exception  of  lieutenant,  are  shown  in  Table  II. 
For  lieutenants,  the  analysis  is  made  more  in  depth  because  it  is  con- 
sidered the  more  critical  grade  in  the  system  for  several  reasons. 
First,  this  is  the  grade  where  losses  are  greater  than  in  any  other  be- 
cause in  this  grade  the  contract  to  serve  expires.  Second,  the  promotion 
flow  beings  to  slow  for  reasons  inherent  in  this  type  of  system.  There- 
fore, the  officers  with  5,   6,  7,  8  and  9  years  in  the  grade  have  differ- 
ent loss  rates  as  shown  in  Table  III.   Those  with  5  years  have  a  loss 
rate  of  30%   because  they  have  already  one  passover  for  promotion.  The 
large  loss  rate  at  8  and  9  years  is  due  to  the  fact  that  these  officers 
begin  to  realize  that  they  will,  in  all  likelihood,  be  forced  out  at 
10  years  and,  accordingly,  begin  searching  for  other  careers.  With  10 
years,  everybody  goes  out  because  that  is  the  maximum  time  in  the  grade. 

C.   PROMOTION  POLICIES 

Once  a  year  there  are  promotions,  and  the  mechanics  for  this  are  the 
following: 

First,  there  is  a  check  as  to  what  vice  admirals  are  going  to  retire 
because  of  time  in  the  service.  Then  the  requirements  for  this  grade 
are  compared  against  the  actual  population  and  the  vacancies  are  deter- 
mined. The  population  of  rear  admirals  ready  is  then  analyzed  and  a 
list  is  formed  with  all  the  rear  admirals  ready  to  be  promoted.   Then 
rear  admirals  from  this  list  are  promoted  to  fill  the  vice  admiral 
requirements.  Sometimes  this  is  not  achieved  because  the  list  is  smaller 
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TABLE  II 
ANNUAL  LOSS  RATES  FOR  ALL  GRADES  EXCEPT  LIEUTENANTS* 

CODE     GRADE  PERCENT  LOSSES  PER  YEAR 

P1    ENSIGN  0 

P2   LIEUTENANT  J.  G.  2 

?k       LT.  COMMANDERS  2 

P£   COMMANDERS  2 

P6   CAPTAINS  2 

P7   REAR  ADMIRALS  2 

P8   VICE  ADMIRALS  1 

*  Excludes  losses  due  to  excess  time  in  grade. 
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TABLE  III 
ANNUAL  LOSS  RATE  FOR  LIEUTENANTS  BY  TIME  IN  GRADE- 
TIME  IN  GRADE (P3)  %   LOSS  RATE 

5  30 

6  20 

7  >  10 

8  80 

9  80 

-^-Excludes  losses  due  to  excess  time  in  grade. 


1U 


than  the  number  of  vacancies.  Moreover,  for  the  rear  admirals  there 
are  only  three  opportunities  to  be  promoted.   This  means  that  a  parti- 
cular rear  admiral  can  only  repeat  3  times  in  the  list  above  mentioned. 

After  the  number  of  rear  admirals  to  be  promoted  is  calculated,  the 
vacancies  for  rear  admiral  are  determined  based  on  requirements  and  the 
population  of  rear  admirals,  less  those  to  be  promoted.  A  similar 
analysis  is  made  to  determine  the  priority  of  captains  to  be  promoted 
to  rear  admiral.  In  the  case  of  the  commanders,  lieutenant  commander, 
lieutenant  and  lieutenant  junior  grade  the  analysis  for  calculating  the 
vacancies  is  similar,  and  the  procedures  to  determine  the  ones  to  be 
promoted  is  also  similar. 

In  the  case  of  cadets  to  be  promoted  to  ensigns,  the  procedures  are 
different  because  all  the  cadets  in  the  fifth  grade  are  going  to  be 
promoted  to  ensign  after  passing  their  final  examinations  regardless 
of  what  the  vacancies  are  for  ensign.   In  other  words,  the  vacancies 
for  ensign  are  not  taken  into  account  to  promote  the  last  year  cadets. 
The  promotions  from  one  cadet  year  to  the  next  are  only  based  on  exams 
and  not  on  requirements.   Only  the  input  to  the  academy  is  based  on 
requirements.  An  example  of  the  advancement  methodology  used  in  this 
system  is  shown  in  Table  IV. 

D.   INPUT  PARAMETERS 

The  input  parameters  to  the  model  of  the  system  are  the  number  of 
cadets  entering  to  the  system,  the  requirement  in  each  grade,  the  number 
of  people  in  each  grade  at  any  specific  time,  and  the  number  of  years 
the  model  is  to  run. 

The  model  must  keep  track  of  the  time  in  grade  and  total  time  in 
the  service  for  each  element  of  the  system. 
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III.   THE  IMPLEMENTATION 

A.   OVERVIEW  OF  THE  IMPLEMENTATION 

The  primary  motivation  for  the  implementation  was  that  the  program 
had  to  produce  an  output  that  a  personnel  planner  could  use  to  solve 
problems .  This  meant  that  the  implementation  had  to  be  simple  enough 
for  the  personnel  planner  to  know  what  the  program  was  doing  without 
much  computer  or  programming  knowledge.  It  also  had  to  be  very  versa- 
tile in  order  to  be  applicable  to  many  personnel  systems  similar  to  the 
one  described  and  versatile  in  adapting  to  policy  changes  in  the  dis- 
tributions of  losses  and  promotions.  Another  characteristic  required 
of  the  program  was  that  the  output  had  to  be  in  a  form  that  provided 
just  enough  information  to  the  personnel  planner  in  a  very  easy  form 
to  read.  Excessive  amounts  of  information  would  be  considered  undesir- 
able. These  were  the  basic  requirements  of  the  implementation  program. 

In  order  to  meet  these  requirements  the  approach  was  to  build 
different  programs  for  the  basic  functions.  One  program  was  devised  to 
calculate  all  the  losses  to  the  system;  another  program,  to  promote  and 
advance  the  people  in  time;  and  the  third  program,  to  produce  the  cor- 
rect output.  These  three  programs  were  to  be  driven  by  a  monitor  pro- 
gram to  read  the  initial  data  of  the  system  and  run  the  model  for  the 
time  desired.  The  program  in  charge  of  the  losses  to  the  system  was 
called  OUT,  the  one  able  to  promote  and  advance  in  time  was  called 
AVANCE,  and  the  one  that  produce  the  output  was  called  OUTPUT.  The 
whole  program  kept  track  of  time  in  the  system  and  time  in  grade  at 
any  moment  for  each  member  of  the  system  being  modeled. 
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This  was  done  with  a  four  digit  number  for  each  member.  The-  first 
two  digits  were  the  time  in  the  actual  grade  and  the  last  two,  the  total 
time  in  the  system. 

In  summary,  the  basic  approach  was  as  follows: 


Set  initial 
conditions 


■ 

■ 

Calculate  all 

losses  to 

the  system 

1 

Make  the 

necessary 

promotions  and  advance  all  the 

people  one  year  in  time 

• 

' 

,  Produce  the  desired  output 

A  listing  of  the  Fortran  program  is  available  in  Appendix  C. 

B.  THE  OUT  PROGRAM  (FIGURE  2) 

This  program  calculates  all  the  losses  to  the  system  and  applies 
these  losses  to  the  data  base.  The  different  reasons  to  go  out  of  the 
system  are  more  than  35  years  in  the  system,  number  of  years  in  grade, 
death,  resignation,  medical  reasons  and  others.  In  this  program  the 
first  two  reasons  are  considered  as  two  separate  items.  The  other 
reasons  will  be  combined  as  one. 

The  purpose  in  doing  this  is  to  keep  a  probabilistic  orientation  to 
the  program.  The  distribution  of  losses  is  presently  arbitrary,  but 
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when  the  program  is  used  in  the  real  system,  it  would  be  possible  to 
calculate  the  distributions  based  upon  past  data.  The  flowchart  of  the 
program  is  given  in  Figure  2 . 

C.   THE  AVANCE  PROGRAM  (FIGURE  3) 

This  program  designates  individuals  for  promotion,  promotes  the 
necessary  number,  and  advances  one  year  in  time  all  the  people  in  the 
system.   The  way  this  is  implemented  is  clear  in  the  general  flowchart, 
but  to  complement  that  description  the  following  additional  details  are 
given . 

First  the  vice-admirals  are  advanced  one  year.  Then  rear-admirals 
with  U,  5>  and  6  years  in  grade  are  placed  in  three  vectors  (VEC1  ,  VEC2, 
VEC3),  respectively.  The  rear-admirals  to  be  promoted  come  from  these 
three  vectors  (See  Appendix  A). 

This  is  done  by  forming  a  vector  (R0L1  )  using  a  routine  called  PROL 
and  another  subroutine  called  ROLNO. 

The  subroutine  ROLNO  takes  people  from  the  three  vectors  and  builds 
a  list  (R0L1  )  designating  the  order  for  promotion. 

The  subroutines  PROL,  SROL,  TROL,  CROL,  QROL,  SROL  and  SEROL  desig- 
nate the  particular  order  to  pick  persons  from  the  three  vectors  by 
ROLNO,  according  to  the  particular  grade  in  the  system. 

After  all  rear-admirals  qualified  for  promotion  have  been  ordered 
(R0L1  ),  the  number  to  be  promoted  is  determined  by  taking  the  smaller 
between  those  qualified  for  promotion  and  the  necessary  number  to  cover 
requirements  for  vice  admirals. 

The  same  procedure  is  used  for  the  other  grades,  but  the  subroutine 
PROL  is  replaced  by  SROL  in  captains,  TROL  in  commanders,  CROL  in  lieu- 
tenant commanders,  QROL  in  lieutenants,  SROL  in  lieutenant  junior  grade, 
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TAKE  OUT  F8 
WITH  35  YEARS 
IN  SYSTEM 


TAKE  OUT  1$  OF  F8 


TAKE  OUT  P7 
WITH    35  YEARS 
IN  SYSTEM 


TAKE  OUT  P7 
WI^H  MORE  THAN 
8   YEARS  IN  GRADE 


TAKE  OUT   Zfo  OF  F7 


REPEAT  THE  SAME 
PROCESS  FOR  P6 


TAKE  OUT  P5 
WITH    35  YEARS 
IN  SYSTEM 


f 

take  out  P5 

WITH  MORE  THAN 
8   YEARS  IN 
GRADE 


TAKE  OUT    1%    OF  PS 


REPEAT  THE  PROCESS 
FOR  P4 


TAKE  OUT  P3 
WITH    35  YEARS 
IN  SYSTEM 


TAKE  OUT  P3 
;1TH  MORE  THAN 
1C   YEARS  IN 
GRADE 


TAKE  OUT  Q0% 
OF  P3  Willi  9  ' 
YEARS  IN  GRADE 


TAKE  OUT  80$ 
OF  P3  WITH  8 
YEARS  IN  GRADE 


TAKE  OUT  10^ 
OF  P3  WITH  7 
YEARS  IN  GRADE 


T 


TAKE  OUT  20^ 
01?  P3  WITH  6 
YEARS  IN  GRADE 


TAKE  OUT  30;o 
OF  P3  WITH  5 
Y^ARS  IN  GRADE 


TAKE  OUT  P2 

WITH    35  YEARS 

IN  SYSTEM 


TAKE  OUT  P2 
WITH  MORE  THAN 
6   YEARS  IN  GRADE 


TAKE  OUT   2%  OF   12 


TAKE  OUT   P1 
WITH    35  YEARS 
IN  SYSTEM 


T 


TAKE  OUT  P1 
WITH  MORE  THAN 
A  YEARS  IN  GRADE 


FIGURE    2.    SUBROUTINE    OUT 
20 


ADVANCE  PR 
YEAR 


ONE 


PUT  IN  VEC1 
ALL  P7  WITH  4 
YEARS  IN  GRADE 


PUT  IN  VEC2 
ALL  P7  WITH  S 
YEARS  IN  GRADE 


PUT  IN  VEC3 
ALL  P7  WITH  f, 
YEARS  IN  GRADE 


C 


CALL  PROL 


} 


PROMOTE  THE  PEOPLE 
FROM  ROL1    TO  ^OVER 
THE  REQUIREMENTS 
FOR  P8 


DO  THE  SAME  PROCESS 
FOR  P6,    PS,    P4,    P7! 
P2,    P1 


ADVANCE  THE  CADETS 
ONE  YEAR 


INTRODUCE  THE  INPUT 
TO   THE  SYSTEM  THROUGH 
THE  FIRST  YEAR  CADETS 


PROMOTE  TO   P1   ALL 
THE  CADETS  WITH   5 
YEARS 


FIGURE    3.    SUBROUTINE    AVANCE 
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and  SEROL  in  ensigns.  Each  of  the  subroutines  call  the  subroutine  ROLNO 
to  form  the  promotion  list  (R0L1 )  for  each  grade  (See  Appendix  B). 

The  input  to  the  system  is  also  driven  by  this  program.  At  each 
cycle  the  cadets  go  to  the  next  year  of  the  academy,  and  the  cadets  in 
the  fifth  year  are  promoted  to  ensign  without  checking  the  vacancies 
for  ensigns.  In  other  words ,  all  the  cadets  in  the  last  year  of  the 
academy  always  go  to  ensign. 

D.  THE  OUTPUT  PROGRAM 

The  OUTPUT  program  is  implemented  to  produce  four  different  forms 
of  output. 

To  produce  any  of  the  particular  forms  of  output  one  must  call  it 
with  a  number  1  ,  3,   h   or  f>.  The  outputs  produced  are  first  (number  1  ) 
a  list  of  all  the  people  in  the  system  at  that  moment. 

Calling  the  subroutine  OUTPUT  with  the  number  3  provides  graphs  of 
each  grade  which  plot  the  number  of  people  in  the  grade  on  the  Y  axis 
and  the  number  of  years  of  simulation  on  the  X  axis.  Calling  the  sub- 
routine OUTPUT  with  the  number  h   will  result  in  a  table  with  the  number 
of  promotions  in  each  grade  and  each  year  of  simulation.  Calling  with 
the  number  $   will  produce  a  listing  of  the  requirements  for  each  grade 
and  the  number  of  people  entering  the  academy  in  that  year.  Before 
calling  the  subroutine  with  the  number  3>  however,  it  has  to  be  called 
with  the  number  2  each  cycle  of  the-r-run  in  order  to  provide  the  infor- 
mation necessary  for  the  plotting. 

E.  THE  MONITOR  PROGRAM  (FIGURE  k) 

The  monitor  program  has  to  perform  several  fixed  and  some  optional 
functions.  The  fixed  functions  are:  read  the  initial  data  of  the  system, 
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the  requirements  in  each  grade,  the  number  of  people  entering  the  system, 
and  the  number  of  cycles  of  the  simulation. 

The  optional  functions  change  the  requirements  during  a  simulation 
run  and  change  the  input  to  the  system  during  the  same  run.   The  way 
this  program  handles  the  three  major  subroutines  OUT,  AVANCE,  and 
OUTPUT  is  very  much  up  to  the  designer  of  the  simulation  experiment. 
An  example  could  be  to  run  the  model  for  20  years  and  each  year  call 
subroutine  OUT,  then  AVANCE,  and  after  the  20  cycles,  call  OUTPUT. 
Another  example  could  be  to  run  for  20  years,  call  OUT  and  AVANCE  each 
cycle,  but  in  the  fifth  cycle  change  the  requirements  and  after  the 
twentieth  cycle,  call  OUTPUT.   These  examples  illustrate  the  versatility 
of  the  program  and  the  requirements  placed  on  the  art  of  the  designer 
of  the  experiment  to  be  able  to  perform  what  he  is  asked  to. 

F.  VERIFICATION  AND  VALIDATION 

The  verification  of  the  simulation  model  was  done  in  the  following 
manner.  The  model  was  run  for  20  years  and  each  time  it  completed  each 
subroutine,  an  output  listing  the  contents  of  the  data  base  was  called 
that  is,  the  contents  of  all  the  arrays.  With  this  output,  it  was  poss- 
ible to  check  the  working  of  each  subroutine.  After  this  check,  changes 
were  made  to  the  input  and  the  subsequent  output  was  checked  with  the 
logic  of  the  function.  That  is,  for  example,  there  has  to  be  an  increase 
in  the  number  of  people  in  the  first  grade  only. 

In  experiments  with  a  real  system,  the  validation  of  the  model  would 
be  a  straightforward  empirical  matter,  but  actual  losses  and  advance- 
ments would  be  used  instead  of  the  present  case  with  an  arbitrary 
personnel  system  /Ref .  2_7. 


23 


(  START  j 


JL 


put  in  common  area  all 
the  arrays  and  variables 


READ  INITIAL  VALUES  OF 
THE  SYSTEM 


READ  THE  NUMBER  OF  PEOPLE 
ENTERING  THE  SYSTEM 


READ  THE  REQUIREMENTS  FOR 

EACH  GRADE 


£- 


READ  THE  NUMBER  OF  CYCLES 
OF  THE  SIMULATION 


C 


CALL  OUT 


Q 


> 


CALL  AVANC] 


Q 


CALL  OUTPU: 


FIGURE  4.  MONITOR  PROGRAM 
2k 


IV.   SAMPLE  PROBLEM 

In  this  section,  a  simple  personnel  problem  will  be  posed,  and  the 
program  will  be  used  to  examine  the  consequences  of  possible  solutions . 
First,  in  order  to  have  the  system  ready  for  experimenting,  we  had  to 
observe  it  and  put  in  a  sequence  of  values  for  persons  entering  the 
system  (INGO)  so  that  the  system  was  stabilized.  That  is,  the  flow  of 
personnel  had  to  be  smooth  and  continuous  and  the  requirements  for  each 
grades  were  being  met  over  a  30-year  period  of  time.  It  was  assumed, 
as  previously  explained,  that  the  time  permissible  in  grade  is  invari- 
able. This  could  be  because  the  minimum  and  maximum  times  in  grade  are 
determined  by  regulations  or  laws,  and  it  is  not  in  the  power  of  only 
one  organization  to  change  it.   Further,  it  was  assumed  that  the  input 
to  the  system  is  through  the  Naval  Academy  only,  it  is  not  possible  to 
skip  grades,  and  losses  for  various  causes  are  as  stated  in  Section  II. 

The  problem  posed  was  a  change  in  requirements  for  some  grades. 
That  is,  in  five  years  from  now  the  requirements  for  the  first  three 
grades,  namely  ensigns,  lieutenants  junior  grade,  and  lieutenants  are 
going  to  change  in  the  following  manner: 


ACTUAL 

WITH  THE 

CODE 

GRADE 

REQUIREMENTS 

CHANGE 

PI 

Ensigns 

120 

160 

P2 

Lieutenants  J.  G. 

120 

160 

P3 

Lieutenants 

130 

180 
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This  change  could  be  the  result  of  a  ship  acquisition.  The  delivery 
is  going  to  be  in  5>  years,  and  we  want  to  be  sure  that  in  that  time  we 
are  going  to  have  the  necessary  people  to  run  the  ship  in  an  efficient 
way.   This  means  that  we  have  to  have  the  necessary  number  and  in  the 
appropriate  grades,  resulting  in  the  change  of  requirements  shown. 

Since  each  year  there  is  a  loss  of  manpower  from  people  that  reach 
the  maximum  permissible  time  in  a  grade  and  are  not  promoted,  when  a 
change  of  requirements  comes  it  could  be  the  case  that  all  of  these  per- 
sons could  be  promoted  and  cover  all  the  vacancies  in  the  next  higher 
rank  created  by  the  change  of  requirements.  The  first  possible  solution 
is  to  investigate  if  this  is  the  case. 

In  order  to  test  this  alternative  we  run  the  model  for  30  years 
changing  only  the  requirements  in  the  year  5  but  keeping  the  input  fixed. 
That  is,  the  input  to  the  system  through  the  Naval  Academy  will  be  the 
same  before  and  after  the  change  of  requirements. 

Figures  £a ,  $b   and  5>c  show  the  behavior  of  grades  P1  ,  P2  and  P3  to 
this  alternative.   The  other  grades  are  not  shown  here  because  they  are 
stable,  their  requirements  are  being  met,  and  there  have  not  been  any 
changes  in  their  requirements.  ■ 

From  Figure  5c  we  can  see  that  in  rank  P3  in  the  fifth  year,  when 
the  change  of  requirements  was  implemented  and  we  promoted  all  the  P2 
eligible  for  promotion,  there  was  not  a  sufficient  increase  to  meet  the 
new  requirements.  The  P3  force  went  only  to  1  £0  men.   This  means  that 
in  that  year,  if  no  change  of  requirements  were  made,  there  were  30  P2 
in  the  promotion  list  who  would  not  have  been  promoted  to  P3-   Some  of 
these  would  have  been  forced  to  go  out  of  the  system  because  they  reached 
the  maximum  permissible  time  in  the  grade,  and  some  would  have  another 
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a. BEHAVIOR  OF  PI  (ensigns). 
200 


150 


UJ 


100 


-  o 


1 


15 

YEARS 

b. BEHAVIOR  G>f  P2  (lieutenants  J.G.). 

200 


150 


LlJ 


100  v 

1 


15 

YEARS 


-o—o—o—o     o- 


30 


30 
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c-  BEHAVIOR  OF  P3  (lieutenants). 
200 


150 


UJ 


100 


15 

YEARS 


30 


FIGURE  5.  Response  of  the  personnel  system  in  the  first  three 
grades  to  changing  requirements  without  a  change  in  input. 
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opportunity  to  be  promoted  next  year.  The  shortages  continue  for  the 
next  2  years,  and  the  requirements  are  not  met  until  the  5th  year  after 
the  change  of  requirements . 

In  P2  the  response  is  completely  different  as  one  can  see  in  Figure 
5b.   The  requirements  are  never  met  and  every  year  P2  is  short  of  man- 
power. 

A  similar  case  is  P1  shown  in  Figure  £a. 

What  we  have  accomplished  with  this  exercise  is  that  we  know  that  a 
problem  of  shortages  in  the  three  first  grades  is  going  to  exist  for  3 
years  in  P3  and  forever  in  P2  and  P1 .  This  is  the  first  purpose  of  the 
model  to  locate  the  problem  area.  The  next  step  is  how  to  solve  the 
problem. 

Since  we  do  not  have  a  mathematical  model  for  this  system  we  cannot 
find  a  mathematical  formula  or  process  to  give  us  a  solution.  Thus,  a 
solution  can  be  reached  by  two  approaches.  One  is  using  the  model  to 
help  us  find  a  sequence  of  inputs  so  that  the  grades  in  question  can 
meet  their  requirements  in  the  shortest  possible  time  and  after  that  be 
stable.  This  can  be  accomplished  by  testing  several  sequences  of  inputs 
and  analyze  their  outputs  in  a  very  informal  and  qualitative  manner. 

The  other  approach  is  to  use  the  computer  simulation  only  to  test 
some  solution  that  was  reached  by  some  other  method  such  as  experience, 
mathematical  modeling  /Ref.  3  &  k/   or  any  other  ^source.  In  this  case 
the  computer  simulation  is  used  to  see  what  the  behavior  of  the  system 
is  with  respect  to  such  solutions.  For  example,  we  could  have  a  mathe- 
matical model  of  a  part  of  the  system  that  could  be  the  source  of  a 
possible  solution.  By  using  only  this  mathematical  model,  we  cannot  be 
certain  if  that  is  the  optimal  one.  That  is  why  we  want  to  test  it  in 
the  computer  model. 
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The  approach  we  took  in  this  paper  is  the  first  one;  that  is,  to 
use  the  computer  model  to  find  and  test  the  solution.  That  was  done  by- 
testing  different  sequences  and  analyzing  their  outputs  clinically  to 
reach  a  solution.   The  solution  was  to  use  the  following  sequence  of 
annual  student  input  to  the  Naval  Academy  — $k}   86,  lj1  ,  kO,   60,  2$,   $h) 
7k)   hO)   65, —  for  the  first  10  years,  after  which  the  annual  input  would 
stabilize  at  \\1 .      The  effects  of  this  solution  are  shown  in  Figures  6a, 
6b  and  6c.  The  graphs  of  only  P1  ,  P2  and  P3  are  shown  because  they  are 
the  only  ones  affected  by  the  change  and  are  where  the  problem  area  was 
located.  Nevertheless  after  reaching  a  solution  we  have  to  be  sure  that 
the  other  grades  are  not  affected  in  a  negative  way,  but  in  this  case 
they  kept  stable . 

As  one  can  see  in  Figure  6c,  P3  still  has  3  years  after  the  change 
of  requirement  where  they  are  not  met.  This  is  because  input  to  the 
system  in  year  one  cannot  affect  P3  until  year  12  due  to  the  fact  that, 
at  the  very  minimum,  the  input  has  to  go  through  5  years  in  the  academy, 
3  as  ensign  (P1  )  and  3  as  lieutenant  J.G.  (P2)  to  reach  P3. 

As  observed  in  Figure  5b,  P2  was  a  critical  grade  because  it  never 
met  its  requirements.   In  Figure  6b  one  can  see  that  the  requirements 
are  reached  in  h   years  after  the  change  and  is  stable  with  some  very 
small  shortage  in  years  11;,  15,  16,  22,  23  and  2k  • 

In  Figure  6a  once  can  see  that  P1  has  a  stable  wave  with  an  average 
of  1 60  persons.   In  this  grade,  since  the  promotion  from  cadet  to  ensign 
(P1 )  is  not  based  on  vacancies  as  in  all  the  other  grades,  the  stabili- 
zation comes  to  be  a  cyclic  curve,  the  same  shape  that  we  have  in  the 
stable  system  before  any  change  in  requirements  occurred. 
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BEHAVIOR  OF  PI  (ensigns) 
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UJ 


100  w 


b. BEHAVIOR  OF  P2 _ (1 ieutenants  J.G.) 
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c. BEHAVIOR  OF  P3  (lieutenants). 
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FIGURE  6.  Response  of  the  personnel  system  in  the  first  three 
grades  to  changing  requirements  and  introducing  an  input 
sequence . 
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This  solution  reached  in  this  particular  problem  is  not  by  any 
means  the  only  one  or  the'  optimal  one.  Since  the  losses  and  time  in 
grade  parameters  were  arbitrarily  determined,  and  no  personnel  overages 
are  permitted  in  the  program,  perhaps  no  solution  to  the  problem  would 
be  desirable  without  changing  these  parameters.  But,  as  expressed  in 
the  beginning  of  this  paper,  the  whole  purpose  of  having  such  a  computer 
simulation  is  to  test  different  policies  in  a  "what  would  happen  if" 
basis,  and  this  is  fully  accomplished  in  this  problem. 
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V.  CONCLUSION 

A  personnel  system  is  simulated  so  that  the  personnel  planner  can 
use  this  simulation  as  a  tool  to  help  solve  manpower  problems  utilizing 
the  benefits  of  a  computer.  The  input  parameters  are  time  in  grade  and 
time  in  the  system  of  each  individual,  the  manpower  requirements  in 
each  grade,  annual  input  to  the  system,  and  the  number  of  years  to  run 
the  simulation. 

The  dynamic  properties  of  the  simulation  are  loss  rates  and  promo- 
tion rates.  A  decision  maker  runs  the  model  to  determine  the  effects 
of  changes  in  the  input  parameters. 

A  sample  problem  was  presented.  Flowcharts  and  a  listing  of  the 
Fortran  program  are  included  in  the  appendices. 

This  model  is  designed  to  be  very  flexible.  Therefore,  for  a  system 
with  the  same  structure  as  the  one  described  in  this  paper,  but  with 
different  rates  of  losses  or  different  rates  of  promotion,  it  can  be 
easily  implemented  because  the  subroutines  that  perform  these  functions 
can  be  very  easily  adapted  or  modified. 

After  the  model  is  ready  for  use,  it  is  up  to  the  imagination  of 
the  programmer  to  build  the  experiment  and  be  able  to  have  the  desired 
output — in  other  words,  be  able  to  answer  the  personnel  planner's 
question. 

Any  experiment  using  a  computer  simulation  is  still  an  art  and  a 
very  interesting  field  of  investigation.  I  encourage  students  to  con- 
tinue investigating  this  exciting  part  of  computer  science. 
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APPENDIX  A     PROMOTION  ALGORITHM 


PUT  IN  VEC1   PTOPLE 
WITH   4  YEARS  IN  GRADE 


r 


PUT  IN  VEC2  PEOPLE 
WITH  5  YEARS  IN  GRADE 


I      PU 


PUT  IN  VEC3  PEOPLE 
WITH  6  YEARS  IN  GRADE 


K   =  TOTAL  NUMBER  OF 
PERSONS  IN  VEC1,   VEC2,    VEC3 


A  =  K 


H 


A  «  10 


ASSIGN  TO  BALL  VALUES 
FOR  THE  REMAINING  PLAGES 
IN  R0L1 


ASSIGN  TO  BALL 
VALUES  FOR  FIRST 
10  PLACES  IN  R0L1 


1 

I  =  1 

I    7   10 

1=1  +  1 

If 

CALL  ROLNO 


35 


J  =  1 


J  -  J  +  1 


J  >  QUE 


TAKE  THE  PERSON 
HIGHEST  IN  THE 
PROMOTION  LIST 
(ROL1)  TO  THE 
NEXT  GRADE 


TAKE  THE  PERSON 
HIGHEST  IN  THE 
PROMOTION  LIST 
ROL1  TO  THE  NEXT 
GRADE 


KEEP  TRACK  OF  THE 
PEOPLE  PROMOTED 
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APPENDIX  B     SUBROUTINE  ROLNO   (input  Parameters  I,   BALL)  - 


GENERATE  A   RANDOM  NUMBER 
BETWEEN   1   AND    10    (j) 


tTJ  =  EALL(j) 


purp   THE  first 
PERSON  FROM  VEC1 
I  WTO  THE  NEXT 
AVAILABLE  PLACE 
IN  THE  PROMOTION 
LIST   (R0L1) 


PUT  THE  FIRST 
PERSON  FROM  VEC2 

INTO  THE  NEXT 
AVAILABLE  PLACE 
IN  THE  PROMOTION 

LIST  (R0L1) 


PUT  THE  FIRST 
PERSON  FROM  VEC3 
INTO  THE  NEXT 
AVAILABLE  PLACE 
IN  THE  PROMOTION 
LIST  (R0L1) 
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£  APPENDIX  C  COMPUTER  PROGRAM 

C 

c 
c 
c 

//VARG2296    JOB    ( 2296 , 0900FT, CS 14) ,  • VARGAS    L«,TIME=1 

//    EXEC    FORTCLG, REGION. GO=110K 

//FORT.SYSIN    DD    DSNA ME=SS P3( PLOTPJ  , DI SP=SHR 

//     DD    * 

C 

C 

c 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

C 
C 
C 

C     THIS  IS  A  SIMULATION  OF  A  PERSONNEL  SYSTEM  ,  IT  CONSISTS 

C     OF  A  MONITOR  PROGRAM  AND  THREE  MAJOR  SUBROUTINES 

C     OUT,  AVANCE,  OUTPUT. 

C  OUT.  CALCULATES  ALL  THE  LOSSES  TO  THE  SYSTEM. 

C  AVANCE.  COMPUTES  THE  PEOPLE  ABLE  FOR  PROMOTION, 

C  PROMOTES  THE  NECESSARY  NUMBER,  AND  ADVANCES  ONE 

C  YEAR  IN  TIME  ALL  THE  FORCE. 

C  OUTPUT.  IS  A  SUBROUTINE  THAT  MANAGES  THE  OUTPUT 

C  OF  THE  PROGRAM,  THIS  OUTPUT  IS  PRODUCED  IN 

C  FOUR  FORMS.  TO  PRODUCE  ANY  OF  THE  DIFFERENT 

C  OUTPUTS  ONE  HAS  TO  CALL  IT  WITH  THE  NUMBER 

C  1,  3,  4  OR  5. 

C 

C 

C  THE  NUMBER: 

C 

C 

c 
c 

C  1    PRODUCES    AN    OUTPUT    LISTING    ALL    THE    CONTENTS 

C  OF    THE    DATA    BASE. 

C 

c 
c 

C  3  PRODUCES  A  PLOTTING  FOR  EACH  GRADE  OF  THE 

C  QUANTITY  OF  PEOPLE  IN  THE  Y  AXIS  AND  THE 

C  YEAR  OF  SIMULATION  IN  THE  X  AXIS. 

C  THIS  CALL  HAS  TO  BE  AT  THE  END  OF  THE 

C  SIMULATION  BUT  IN  ORDER  TO  FILL  THE  NECESSARY 

C  VECTORS  OF  INFORMATION  ONE  HAS  TO  CALL  THIS 

C  SUBROUTINE  WITH  THE  NUMBER  2  EACH  CYCLE  OF 

C  THE  SIMULATION. 

C 

c 
c 

C  4    PRODUCES    A    TABLE    SHOWING    THE    NUMBER    OF 

C  PEOPLE    PROMOTED    FROM    ONE    GRADE    TO    THE    NEXT 

C  EACH    YEAR    OF    SIMULATION. 

C 

C 

C 

C  5  PRODUCES  A  LISTING  OF  THE  VALUES  OF 

C  REQUIREMENTS  IN  EACH  GRADE  EACH  YEAR,  THE 

C  VALUE  OF  THE  INPUT  TO  THE  SYSTEM  EACH  YEAR/ 

C  THE  CYCLE  NUMBER,  AND  THE  NUMBER  OF  CADETS 

C  IN  EACH  YEAR  OF  THE  ACADEMY,  EACH  YEAR. 

C 

C 

c 
c 

C  THE  VECTOR  AFRA  REPRESENTS  THE  FIRST  GRADE  PI,  TESE 

C  REPRESENTS  P2 ,  TEPRI  REPRESENTS  P3,  CORBE  REPRESENTS  P4 

C  CAFRA  REPRESENTS  P5,  CANAV  REPRESENTS  P6 ,  CALM  REPRESENTS 

C  P7,  AND  VALM  REPRESENTS  P8. 
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c 
c 

C  THE    SUBROUTINE    AVANCE    CALLS    THE    SUBROUTINES    PROL,     SROL, 

C  TROL,    CROL,     OROL,    SROL,     SEROL. 

C  EACH    CF   THFSESUBROUTINES    CALLS    SUBROUTINE    ROLNO    TO    PERFORM 

C  THE    FUNCTION    OF     FORMING    THE    PROMOTION    LIST    FOR    EACH    GRADE 

C  WHICH  SUBROUTINE    AVANCE    NEEDS    TO    PROMOTE    THE    NECESSARY 

C  PEOPLE    TO   MEET   REQUIREMENTS. 

C  THESESEVEN    SUBROUTINE     ,     ONE    FOR    EACH    GRADE    EXCEPT    P8 

C  BECAUSE    THERE     IS    NO    PROMOTION    FROM    P8,     DETERMINES     IN    A 

C  PROBABILISTIC    MANNER    THE    ORDER     IN    THE    PROMOTION    LIST    OF 

C  THE    PEOPLE    ABLE     FCR    PROMOTION. 

C 

C 

c 

c 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


MONITOR  PROGRAM     PROGRAMA  MONITOR 


IMPLICIT    INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),     TESE(200),     TEPRK200), 
1CORBE(150),     CAFRA(IOO) ,CANAV(80 ),    CALM(50),    VALM(IO), 
2ENTA( lO),ENTB(5O),ENTC(80),ENTD(10O),ENTE(150), 
3ENTF(200  ),ENTG(2  00  ) , ENTH( 200 ) , QUE  1, QUE  2. QUE 3 , 
4QUE4,QUE5,QUE6 ,QUE7,QUE8 , VEC1  (200)  , VEC2 (200  ) , 
5VEC3( 200 ),ROL1(600)  ,1 X  ,K1 , K3, K2 t KK , LL ,MM , I NGO, 
6  CADET (5 ),REKIS  (8 JtCY,Z1(100),A1(50),A2( 50) iA3(50) f 
7A4(50) tA5(50),A6(50),A7(50) , CYCLE 

DO    10    1=1,200 

READ(5*100)     AFRA(I) 

10  CONTINUE 

DO    11    1=1,200 
READ(5,100)     TESE(I) 

11  CONTINUE 

DO    12    1=1,200 
READ(5,100)     TEPRKI  ) 

12  CONTINUE 

DO    13    1=1,150 
READ(5,100)    CORBE(I) 

13  CONTINUE 

DO    14    1=1, 100 
READ(5,100)    CAFRAU  ) 
Zl(  I)=I 

14  CONTINUE 

DO    15    1=1,80 
READ(5,100)    CANAV(I) 

15  CONTINUE 

DC    16    1=1,50 
READ(5,100)    CALM(I) 

16  CONTINUE 

DO    17    1=1,10 
READ(5,  100)    VALMU  ) 

17  CONTINUE 

DO    18    1=1,5 
READ(5,100)    CADET( I ) 

18  CONTINUE 

DO    19    1  =  1,8 

READ(5 ,100 )    REKIS( I  ) 

19  CONTINUE 
READ(5, 100)    CYCLE 
CY=CYCLE 


39 


100   F0RMATU4) 
C 
C 

C     THIS  PART  IS  DEPENDENT  OF  THE  PARTICULAR 
C     USE  OF  THE  MODEL 
C 

C     ESTA  PARTE  ES  DEPENDIENTE  DE  LO  QUE  SE  QUIERA 
C     HACEP.  CON  EL  MODELO 
C 

c 

1000  CALL    0UTPUT(2) 
READ(5,100)     INGO 
CALL    0UTPUT(5) 
CALL    OUT 

CALL    AVANCE 
CYCLE=CYCLE-1 

IF(CYCLE.E0.25)     GO    TO    1001 
IF(CYCLE.NE.O)     GO    TO    1000 
GO    TO    13  02 

1001  REKIS(6)=180 
REKIS(7 )=160 
REKIS( 8) =160 
GO    TO    1000 

1002  CALL  OUTPUTO) 
CALL  0UTPUT(4) 
STOP 

END 
C 

c 
c 
c 

SUBROUTINE  OUTPUT(NO) 
C 
C 
C 
C 
C 

C  THIS    SUBROUTINE     DRIVES    ALL    THE    OUTPUTS    OF    THE    PROGRAM 

C 
C  ESTA    SUBRUTINA    MANEJA   TODO    LO    QUE    SE    VA    A     IMPRIMIR 


C 


c 
c 
c 


IMPLICIT     INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),    TESE(200),    TEPRK200), 
1CORBE(150),    CAFRA( 100) ,CANAV(80) ,    CALM(50),    VALM(IO), 
2ENTA(10 ),ENTB(50) , ENTC(80),  ENT D( 100 ) , ENTE (  150) , 
3ENTF(2  00)  ,ENTG(200)  ,E NTH (200)  , QUE1 , QUE2 , QU E3 , 
4QUE4,QUE5,QUE6,QUE7,QUE8,VEC1( 200) , VEC2( 20  0)  , 
5VEC3(20J)  ,  RCL1  (603  )  , IX,K1,K3 , K2 t KK, LL, MM,  INGO, 
6CADET( 5),REKIS(8),CY,Z1(100),A1(50),A2(50),A3(50), 
7A4(50) , A5(50 ),  A6 ( 50  ) , A7 ( 50 ) , CYCLE 

DIMENSION    Z2(100) ,Z3(100) ,Z4(100) ,Z5(100), Z61100), 
1Z7Q00)  ,Z8(  100)  ,Z9(  100) 


GO  TO  ( 11, 12,13, 14, 15) , NO 
11    WRITE(6,107) 
DO  1  1=1,10 

WRITE (6, 101)  AFRA( I  ), TESEC I) ,TEPRI( I) ,CORBE(I )  , 
lCAFRA(I)  ,CANAV (  I ),CALM(  I) ,VALM(  I) 

1  CONTINUE 

DO  2  1=11,50 

WRITE  (6,102)     AFRAU  ),TESE(I)  ,TEPRI  (I)  ,CORBE(  I), 
ICAFRAt  I  ),CANAV( I ) , CALM (I > 

2  CONTINUE 

DO    3    I =51,80 

WRITE (6, 103)  *FRA(  I ),TESE( I) ,TEPRI ( I )  ,CORBE(I)  , 
1CAFRA1I ) ,CANAV ( I ) 

3  CONTINUE 

DO  4  1  =  81,  100 


ho 


WRITE (6, 104)  AFRA{I),TESE(I),TEPRIC I),C0RBE{ I), 
1CAFRA(  I  ) 

4  CONTINUE 

DO  5  1=101,150 

WRITE  (6,  105)    AFRA(  I  )  ,  TE  SE  {  U  ,TEPRI  {  I)  ,CORBE(I) 

5  CONTINUE 

DO    6    1=151 ,200 

WRITE (6, 106)     AFRA( I  J  ,TESE(I)  ,TEPRI  (  I  ) 

6  CONTINUE 
WRITE(6,108) 

41         DO    7    1  =  1,5 

WRITE(6,109)    CADET( I) 

7  CONTINUE 
WRITE    (6,110) 
DO    8     1=1  ,8 
WRITE(6,109)     REKIS(I) 

8  CONTINUE 
WRITE(6,111)     INGO 
WRITE(6,112)     SYCLE 

101  FORMAT!'     *,8I10) 

102  FORMAT!'     «,7U0) 

103  FORMAT! «     ',6110) 

104  FORMAT (»     »,5I10) 

105  FORMATS     ■  ,4110) 
10  6       FORMAT!  •     ',3110) 

107  FORMATCl','  AFRA  ',»  TESE  ','  TEPRI 
1»          CORBE       ', 

2'  CAFRA       ',•  CANAV       »,'  CALM  »,«  VALM 

108  FORMAT! '     » , •    CADET     « ) 

109  FORMAT(  «     '  ,1  10) 

110  FORMAT!'     ','    REKIS     •) 

111  FORMAT!'     ','     INGO    =     «,I10) 

112  FORMAT! «     ','    CYCLE     =    ',110) 
RETURN 

12  VA=0 
CA  =  0 
CN  =  0 
CF=0 
C0=0 
TP  =  0 
TS=0 
AF=0 

DO    21    1=1, 10 
IFCVALMUJ.GT.O)    VA=VA  +  1 

21  CONTINUE 

DO    22    1  =  1,  50 

IFCCALMl IJ.GT.O)    CA=CA+1 

22  CONTINUE 

DO    23    1=1,80 

IF(CANAVd)  .GT  .0  )    CN=CN  +  1 

23  CONTINUE 

DO    24    1=1, 100 

IF(CAFRA(  D.GT  .0)     CF=CF+1 

24  CONTINUE 

DO    25    1=1, 150 

IF(CORBE(I ).GT .0  )    C0=C0  +  1 

25  CONTINUE 

DO    26     1=1,200 
IF(TEPRI  (I  )  .GT  .0  )    TP=TP  +  1 
IF(TESEII) .GT. 0)     TS=TS+1 
IF(AFRA( I ) .GT.O)     AF=AF+1 

26  CONTINUE 
Z21CY-CYCLE+1) =VA 
Z3(CY-CYCLE+1)=CA 
Z4CCY-CYCLE+1) =CN 
Z5(CY-CYCLE+1)=CF 
Z6 (CY-CYCLE+1)=C0 
Z7(CY-CYCLE  +  1)  =TP 
Z8(CY-CYCLE+1)=TS 
Z9(CY-CYCLE+1) =AF 
RETURN 

13  WRITE(6,113) 


2*1 


113 
114 
115 
116 
117 
118 

119 
120 
14 


31 
121 


122 
15 


C 
C 
C 
C 
C 
C 
C 
C 


FORMATCl't'     VICEALMIRANTES        (VALM)     «) 

CALL    PLOTP!  Zlt Z2tCYtO) 

WRITE(6, 114) 

FORMATCl','     CONTALMIRANTES       (CALM     )•) 

CALL     PLOTP( Zlt Z3,CY,0) 

WRITE!6, 115) 

F0RMATC1',1     CAPITANES    DE    NAVIO       (CANAV)     •) 

CALL     PLOTP! Zl, Z4,CY,0) 

WRITE(6,116) 

FORMAT! '1','    CAPITANES    DE    FRAGATA       (CAFRA)     •) 

CALL     PLOTP!  Zl,  Z5,CY,C) 

WRITE(6,117) 

FORHATCl',1     CAPITANES    DE    CORBETA    (CORBE)     •) 

CALL    PL0TP!Z1,Z6,CY,C) 

WRITE(6,118) 

FORMAT! '1','     TENIENTES    PRIMEROS     (TEPRI)     •) 

CALL    PLOTP! Zl, Z7,CY,0) 

WRITE(6f119J 

FORMAT! «1«,'    TENIENTES    SEGUNDOS       { TE SE )     «) 
CALL    PLOTPt Zl, Z8,CY,0) 
WRITE!6, 120) 
FORMAT ('l1,1    ALFERECES 
CALL    PLOTPtZl, Z9,CY,D) 
RETURN 

WRITE(6,121  ) 
DO    3  1    I=1,CY 

WRITE! 6, 122) Alt  I ),A2(I  )  ,A3!I  ) ,A4!I ) ,A5!I ) 
1  A6  (  I  )  ,  A7  1 1  ) 
CONTINUE 
FORMAT! » 1« , 'CALM    TO    VALM 


DE  FRAGATA   (AFRA)  ») 


l'CAFRA  TO  CANAV 
2'TEPRI  TO  CORBE 
3'AFRA  TO  TESE 


FORMAT  (  •  0' 
RETURN 
CY  =  CY 
GO  TO  41 

END 


) 


1  ,  'CANAV 
•CORBE  TO  CAFRA 
' TESE  TO  TEPRI 


TO 
t 


CALM 


17,6116) 


C 
C 
C 
C 
C 
C 

c 
c 
c 
c 


SUBROUTINE  OUT 

THIS  SUBROUTINE  CCMPUTES  ALL  THE  LOSSES 

ESTA  SUBRUTINA  COMPUTA  TODAS  LAS  PERDIDAS  DEL  SISTEMA 


IMPLICIT    INTEGER(A-Y) 

COMMON/NADA/    AFRAJ200),     TESE!200),     TEPRH200), 
1CGRBEU50),    CAFRA(IOO)  ,CANAV(80)  ,    CALM!50)»    VALMtlO), 
2ENTA! 10 ),ENT8! 50 ) , ENTC ( 80) , ENTD! 100 ) ,ENTE ( 150) , 
3ENTF(20  3) ,  ENTG(2  0D) , ENTHI200) , QUE1 , QU E2 , QU E3, 
40UE4,QUE5,GUE6,QUE7,QUE8,VEC1(200) , VEC2(200) , 
5VEC3  1200  ),R0L1 !600  )  ,IX,K1,K3,K2,KK,LL,MM, INGO, 
6CADET! 5),REKIS(8),CY,Z1(100),A1!50),A2(5J),A3I50), 
7A4(50),A5!50),A6{50),A7(50),CYCLE 

WRITE(6,200) 
200       FORMAT! ■O* ,'ENTRC    A    OUT    ') 


k2 


C  VICE-ADMIRALS 

C  VICEALMIRANTES 

C 

VA=0 

B  =  l 

DO    10    1=1,10 

A=VALM(  I  ) 

1001  IF(A.LT.IOO)    GO    TO    1000 
A=A-100 

GO    TO    1001 
1000    IFU.LT.35)    GO    TO    110 

0UE1=QUE1+1 

VALMd  )  =0 
110       IF(    VALMd). NE.O)     VA=VA+1 

IF(VALM( I) .GT.O  )    GO    TO     10 

ENTA(B) =1 

B=B  +  1 

10  CONTINUE 
N=VA-QUE1 
P1=IFIX(N*0.01+1) 
1=1 

DO    11    J=1,P1 

1003  IF(VALM(  I)  .GT.O)    GO    TO    1002 
1=1  +  1 

GO    TO    1003 

1002  ENTA(B)=I 
VALMd  )=0 
B  =  B+1 

1=1  +  1 
0UE1=0UE1+1 

11  CONTINUE 
C 

C  REAR-ADMIRALS 

C  CONTRALMIRANTES 

C 

CA  =  0 

C=l 

DO    12    1  =  1,50 

A=CALM(I ) 

IFU.GE.800)     GO    TO    1006 

1005  IF(A.LT.IOO)    GO    TO     1004 
A=A-100 

GO    TO    1005 

1004  IF(A.LT.35)    GO    TO    112 

1006  0UE2=0UE2+1 
CALM( I )=0 

112       IF(     CALM(I).NE.O)    CA=CA+1 
IF(CALM( I) .GT.  0)    GO    TO    12 
ENTB(C)=I 
C=C  +  1 

12  CONTINUE 
N=CA-0UE2 
P2=IFIXCN*0.02+1 ) 
1=1 

DO    13    J  =  1,P2 
1008    IF(CALM{ I) .GT.O  )    GO    TO    1007 
1=1  +  1 
GO    TO    1008 

1007  ENT8(C)=I 
C=C+1 
CALMt I )=0 
1=1  +  1 
0UE2=0UE2+1 

13  CONTINUE 
C 

C  CAPTAINS 

C  CAPITANES    DE    NAVIO 

C 

CN=0 

D=l 

DO    14    1=1,80 

A=CANAV( I) 


1*3 


IF(A.GE.800)    GO    TO     1011 

1010  IF(A.LT.ICO)    GO    TO     1009 
A=A-130 

GO    TO    1010 
1009     IFIA.LT.35)     GO    TO    114 

1011  QUE3=0UE3+1 
CANAV( I )=0 

114       IF(CANAV(I ) .NE.O)     CN=CN+1 
IF(CANAVII) .GT.O)    GO    TO    14 
ENTC(D)=I 
D  =  D+1 

14  CONTINUE 
N=CN-QUE3 

P3  =  IFIX(N*0.02+1) 

1=1 

DO    15    J=1,P3 

1013  IF(CANAVd)  .GT.OJGO    TO    1012 
1=1  +  1 

GO    TO    1013 

1012  ENTC(D)=I 
CANAVt I )=0 
D  =  D+1 

1=1  +  1 
0UE3=0UE3+1 

15  CONTINUE 
C 

C  COMMANDERS 

C  CAPITANES    DE    FRAGATA 

C 

CF=0 

E  =  l 

DO    16    1=1,100 

A=CAFRA(  I) 

IF(A.GE.800)    GO    TO     1016 

1015  IF(A.LT.IOO)    GO    TO    1314 
A=A-100 

GO    TO    1015 

1014  IFU.LT.35)    GO    TO    116 

1016  0UE4=0UE4+1 
CAFRA(I) =0 

116       IF(CAFRA( I ) .NE.O)     CF=CF+1 
IF(CAFRAU)  .GT  .0)    GO    TO    16 
ENTD(E) =1 
E  =  E+1 

16  CONTINUE 
N=CF    -0UE4 
P4=IFIX(N*0.02+1) 
1=1 

DO    17    J=1,P4 

1018  IF(CAFRA(I ) .GT.O)GO    TO    1017 
1=1  +  1 

GO    TO    1018 

1017  ENTD(E)=I 
CAFRA( I  )=0 
E  =  E+1 

1=1  +  1 
0UE4=0UE4+1 

17  CONTINUE 
C 

C  LIEUTENANT  COMMANDER 
C  CAPITANES  DE  CORBETA 
C 

C0=0 

F  =  l 

DO  18  1=1, 150 

A=CORBE(  I) 

IFU.GE.803)  GO  TO  1321 

1020  IF(A.LT.IOO)  GO  TO  1019 
A=A-100 

GO  TO  1320 

1019  IFtA.LT.35)  GO  TO  118 

1021  0UE5=0UE5+1 


hh 


c 
c 
c 


CORBEC I ) =0 
118       IF(CORBE( IJ.NE.O)    CO=CQ+l 
IF(CCRBE( I) .GT .0 )    GOTO    18 
ENTE(F) =1 
F=F+1 

18  CONTINUE 
N=CO    -0UE5 
P5=IFIXCN*0.02+1) 
1  =  1 

DC    19    J=1,P5 
1023     IFCCORBEC I) .GT.OJGO    TO    1022 

1  =  1+1 

GO    TO    1023 
1022    ENTE(F)=I 

CORBEU  )  =0 

F  =  F+1 

1=1  +  1 

0UE5=0UE5+1 

19  CONTINUE 


1031 


1030 
1029 

120 


20 


121 

221 

321 

421 

521 
21 


NE 


LIEUTENANT 

TENIENTES    PRIME 
TP  =  0 
G  =  l 

DO    2  0    1=1,2  00 
A=TEPRIl  I) 
IF(A.GE.IOOO) 
IFCA.LT.103)     3 
A=A-100 
GO    TO    1031 
IFCA.LT.35) 
0UE6=0UE6+1 
TEPRI (I ) =0 
IFCTEPRI (I) 
IF(TEPRI (I ) .GT 
ENTF(G) =1 
G=G+1 
CONT INUE 
AA=0 
BB=0 
CC  =  0 
DD=0 
EE=0 

DO    21    1  =  1,200 
IF(TEPRI (I  J  .GE 
IFCTEPRI (I ).GE 
IFCTEPRIC I ) .GE 
IFCTEPRI (I ) .GE 
IFCTEPRI (I ) .GE 
AA=AA+1 
GO    TO    21 
BB=BB+1 
GO    TO    21 
CC=CC+1 
GO    TO    21 
DD=DD+1 
GO    TO    21 
EE=EE+1 
CONTINUE 
P5=IFIX( AA*0.8 
P6=IFIXCBB*0.8 
P7=IFIX(CC*0.1 
P8=IFIX(DD*0.2 
P9=IFIX( EE*0.3 
J  =  0 

DO    22    1=1,200 
IFCTEPRI (I ).E0 
IFCTEPRI (  I  )  .  LT 
IFCTEPRI  (  I  )  .GT 
J  =  J+1 

IFCJ.GT.P5)     GO 
0UE6=0UE6+1 


ROS 


GO  TO  1029 
0  TO  1030 


GO  TO  120 


.0)  TP=TP+1 
.0)  GO  TO  20 


.900  ) 
.800) 
.700) 
.603) 
.500) 


GO 

GO 
GO 
GO 
GO 


TO 

TO 
TO 
TO 
TO 


121 
221 
321 
421 
521 


+  1) 
+  1) 
+  1) 

0+1) 
0  +  1) 


.0)     GO   TO    22 
.900)     GO    TO    22 
.935)     GO    TO    22 

TO    2  8 


Il5 


TEPRI  (I  )=0 

ENTFCG)=I 

G=G+1 

22  CONTINUE 
J=0 

28  DO    23    1=1,200 

IFCTEPRI CI ) .EQ.O)     GO    TO    23 

IFCTEPRK  I  )  .LT. 800)    GO    TO    23 

IF(TEPRI(I ).GT .835)    GO    TO    23 

J  =  J+1 

IFCJ.GT.P6)    G3    TO    29 

0UE6=QUE6+1 

TEPRI { I ) =0 

ENTFCG)=I 

G=G+1 

23  CONTINUE 
J  =  0 

29  DO    24    1=1,200 

IF(TEPRI (I ) .EO.O)     CO    TO    24 

IFCTEPRK  I  )  .LT. 700)    GO    TO    24 

IF(TEPRI (IJ.GT.735 )     GO    TO    24 

J  =  J  +  1 

IFCJ.GT  .P7  )    GO    TO    33 

0UE6=0UE6+1 

TEPRK  I  )=0 

ENTF(G)=I 

G=G+1 

24  CONTINUE 
J=0 

33  DO    25    I =1,230 
IF(TEPRI(I ) .EQ.O)    GO    TO    25 
IFCTEPRI (I ) .LT. 600)    GO    TO    25 
IFCTEPRI (I ) .GT.635)     GO    TO    25 
J  =  J  +  1 

IFCJ.GT. P8)     GO    TO    34 

0UE6=0UE6+1 

TEPRK  I  )=0 

ENTF(G) =1 

G=G+1 

25  CONTINUE 
J  =  0 

34  DO    26    1=1,200 

IFCTEPRI (I) .EO.O)     GO   TO    26 

IFCTEPRI (I J.LT.500)     GO    TO    26 

IFCTEPRK  I  )  .GT  .535)    GO    TO    26 

J  =  J+1 

IFCJ.GT.P9)    GO    TO    27 

0UE6=0UE6+1 

TEPRI CI )=0 

ENTF(G)=I 

G=G+1 

26  CONTINUE 
C 

C  LIEUTENANT    JUNIOR    GRADE 

C  TENIENTES    SEGUNDOS 

C 

27  TS=0 
H  =  l 

DO    30    1=1,200 

A=TESEl  I  ) 

IFCA.GE.600)  GO  TO  2000 
2002  IFCA.LT.100)  GO  TO  2001 

A=A-100 

GO    TO    2002 
2001     IFCA.LT.35)    GO    TO    130 
2000    0UE7=0UE7+1 

TESEC I )=0 
130       I  F {    TESEC  I)  .NE .0)    TS=TS  +  1 

IFCTESEC I) .GT.O)    GO    TO    30 

ENTGCH)=I 

H=H+1 

30  CONTINUE 


1*6 


N=TS    -0UF7 

P10=IFIX(N*0.02+1) 

1=1 

DO    31    J  =  1,P10 

2003  IF(TESE( I)  .GT.O)    GO    TO    2004 
1=1  +  1 

GO    TO    2003 

2004  ENTG(H)=I 
TESEtl ) =0 
H=H+1 

1  =  1  +  1 
0UE7=0UE7+1 

31  CONTINUE 
C 

C  ENSIGNS 

C  ALFERECES 

C 

AF=0 

0=1 

DO    32    1=1,200 

A=AFRA(I ) 

IF(A.GE.500)    GO    TO    2005 

2006  IF(A.LT.IOO)    GO    TO    2007 
A=A-100 

GO    TO    2006 

2007  IF(A.LT.35)    GO    TO    132 

2005  0UE8=0UE8+1 
AFRAd  )=0 

132       IF(AFRAd)  .NE.O)     AF=AF+1 
IF(AFRA( I) .GT. 0)     GO    TO    32 

32  CONTINUE 
WRITE(6,201) 

201       FORMAT!  '0«,'     SALGO    DE    OUT    '  ) 
RETURN 
END 


C 
C 

c 
c 
c 


SUBROUTINE    AVANCE 
C 

c 
c 

C     THIS  SUBROUTINE  COMPUTES  THE  PEOPLE  ABLE  TO 

C     PROMOTION  AND  PROMOTES  THE  NECESSARY  NUMBER 

C     AND  ADVENCES  ONE  YEAR  IN  TIME  ALL  THE  FORCE 

C 

C 

C  ESTA    SUBRUTINA    COMPUTA    TODA    LA    GENTE    ELEGIBLE    PARA 

C  ASCENSO    Y    ASCIENDE    A    LOS    NECESARIOS    Y    AVANZA    UN    ANO 

C  EN    TIEMPO    A    TODA    LA    FUERZA. 

C 

IMPLICIT    INTEGER(A-Y) 

COMMON/NADA/    AFRA{200),     TESE(200J,    TEPRK200), 
1CORBE(150),     CAFRA(IOJ) ,CANAV(80 ) ,     CALM(50),    VALM(IO), 
2ENTA( 10) ,ENTB( 50  J ,ENTC<  80)  ,ENTD( 1 00 )  ,ENTE ( 150) , 
3ENTF1200  ),ENTG(200 ) , ENTH( 200 ) , QUE  1, QUE  2, QUE  3 , 
40UE4,QUE5,QUE6  ,0UE7  ,QUE8 ,VEC1 (200) ,VEC2 (200), 
5VEC3(200  ),ROL 1(600)  ,1 X  ,K1 , K3 , K2 , KK , L L ,MM , I NGO , 
6  CADET (5 ) ,REKIS  ( 8 ) , CY , Z 1 ( 100 ) , A1(50),A2( 50) , A3 1  50) , 
7A4(50) ,A5(50),A6(50),A7(50) , CYCLE 

C 

C 

C 

C  ADVANCE    ONE    YEAR    THE    VICE-ADMIRALS 

C  SE    AVANZA    1     ANO    A    LOS    VICEALMIRANTES 

C 

C 


kl 


WRITE(6,202) 
202       FORMATt'O',*     ENTRO    A    AVANCE    *  ) 
VA=0 

DO    1    1=1,10 

IF(VALM( I) .GT.O)    V ALM i I )=VALM{ I ) +101 
IF(VALMU).GT.O)     VA=VA+1 

I  CONTINUE 
C 

c 
c 

C     FORM  THE  PROMOTION  LIST  OF  THE  REAR  ADMIRALS 

C 

C     FORMAR  CUADRO  DE  ASCENSO  DE  CONTRALMI RANTES 

C 

c 

C     IN  VEC1  ARE  ALL  THE  ONES  WHO  HAVE  4  YEARS  IN  THE  GRADE 

C     EN  VEC1  ESTAN  LDS  QUE  TIENEN  4  ANOS  EN  EL  GRADO 

C 

c 

CA=0 
Kl=l 
K2  =  l 
K3=l 

DO  10  1=1*50 

IF (CALM! I) . LT. 400)     GO    TO    11 
IF(CALM( I) .GT.435)    GO    TO    11 
VECKK1  )=I 
K1=K1+1 
GO   TO    110 
C 

c 

C     IN  VEC2  ARE  ALL  THE  ONES  WHO  HAVE  5  YEARS  IN  THE  GRADE 
C     EN  VEC2  ESTAN  TODOS  LOS  QUE  TIENEN  5  ANOS  EN  EL  GRADO 
C 

c 

II  IF(CALM( I ) .LT.500JG0   TO    12 
IF(CALM( I ) .GT.535)     GO    TO    12 
VEC2(K2)=I 

K2=K2+1 

GO    TO    110 
C 
C 

C  IN    VEC3    ARE    ALL    THE    CNES    WHO    HAVE    6    YEARS     IN    THE    GRADE 

C  EN    VEC3    ESTAN    TODOS    LOS    QUE    TIENEN    6    ANOS    EN    EL    GRADO 

C 

c 

12         IF(CALM{  I)  .  LT.600JG0   TO    110 
IF (CALM ( I ) .GT. 63  5)     GO    TO    110 
VEC3(K3)=I 
K3=K3+1 
C 

C  ADVANCE    ONE    YEAR    THE    REAR-ADMIRALS 

C 
110        IF(CALM( I) .GT.O)    C ALM ( I ) =CALM{ I ) +101 

IF(CALMd)  .GT.O)     CA=CA  +  1 
10         CONTINUE 

K=Kl+K2+K3-3 
C 

C  FORM    THE    PROMOTION    LIST    AND    PROMOTE     - 

C  THE    NECESSARY    NUMBER    OF    PEOPLE 

C 

C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NUMERO    NECESARIO    DE    GENTE 


C 


RE=REKIS(  D-VA 

0UE1=RE 

CALL    PROL(K) 

IF( K.LT.QUE1)     GO    TO    14 

CA=CA-QUE1 

AKCY-CYCLE+1)  =QUE1 

DO    13    J=1,QUE1 

TEMP1=CALM(R0L1 (J) )-600 
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IF(TEMPl.LT.O)     GO    TO    18 
IFCTEMPl.GT.lOO)    GO    TO    17 
VALMCENTAC J) )=CALM( ROL1CJ)  )-500 
CALMCROLK  J) )=0 
GO    TO    13 

18  VALMCENTAC J)  )  =CALM  {  ROL  1  (  J  )  )-400 
CALMCROLK  J))=0 

GO    TO    13 
17  VALM(ENTA(  J)  )=CALM(  ROLKJ)  )-600 

CALMCROLK J) )=0 

13  CONTINUE 
QUE2=QUE2+QUE1 
GO    TO    16 

14  DO    15    J=ltK 
TEMP1=CALM(  ROLKJ)  )-603 
IF(TEMPl.LT.O)     GO    TO    19 
IF(TEMPl.GT.lOO)    GO    TO    117 
VALMCENTAC  J)  )  =CALM{  ROLKJ)  ) -500 
CALMCROLK  J  )  )=0 

GO   TO    15 

19  VALMCENTAC  J) ) =C A LM ( ROL 1 ( J) )-400 
CALMCROLKJ)  )=0 

GO  TO  15 
117   VALM(ENTA(J) ) =CALM { ROL K J) )-600 
CALMCROLK  J  )  )=0 

15  CONTINUE 
CA=CA-K 

Al (CY-CYCLE+1)=K 
QUE2=QUE2+K 

16  0=1 

DO    116     1=1,50 

IFCCALMC  D.GT.O)  GO  TO  116 

ENTBCO)=I 

0  =  0+1 
116   CONTINUE 
C 

C     FORM  THE  PROMOTION  LIST  OF  THE  CAPTAINS 
C 

C     FORMAR  CUADRO  DE  ASCENSO  DE  CAPITANES  DE  NAVIO 
C 

c 

KK=1 
LL=1 

MM  =  1 
C 

C     IN  VEC1  ARE  ALL  THE  ONES  WHO  HAVE  4  YEARS  IN  THE  GRADE 
C 

C     EN  VEC1  ESTAN  TODOS  LOS  QUE  TIENEN  4  ANOS  EN  EL  GRADO 
C 

c 

CN  =  0 
Kl=l 
K2  =  l 
K3=l 

DO  20  1=1,80 

IFCCANAVCI) .LT.400)    GO    TO    21 
IFCCANAVC I ) .GT.435)    GO    TO    21 
VECKK1  )=I 
K1=K1+1 
GO    TO    220 
C 

c 

C  IN    VEC2    ARE    ALL    THE    ONES    WHO    HAVE    5    YEARS    IN    THE    GRADE 

C 

C     EN  VEC2  ESTAN  TODCS  LOS  QUE  TIENEN  5  ANOS  EN  EL  GRADO 

C 

c 

21    IFCCANAVCI ) .LT.500)  GO  TO  22 
IFCCANAVC I ) .GT  .535)  GO  TO  22 
VEC2CK2) =1 
K2  =  K2+1 
GO  TO  220 
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c 

C     IN  VEC3  ARE  ALL  THE  CNES  WHO  HAVE  6  YEARS  IN  THE  GRADE 

C 

C     EN  VEC3  ESTAN  TGDOS  LOS  QUE  TIENEN  6  ANOS  EN  EL  GRADO 

C 

c 

22  IF(CANAVU)  .LT.600)  GO  TO  220 
IF(CANAV( I ) .GT.635)  GO  TO  220 
VEC3(K3  )  =  I 

K3=K3+1 
C 

C     ADVANCE  ONE  YEAR  THE  CAPTAINS 
C 
220   IFCCANAV(I)  .GT.O)  CANA V( I ) =CANA V( I )  +  101 

IF(CANAV< I ) .GT .0 )  CN=CN+1 
20    CONTINUE 

K=Kl+K2+K3-3 

IFCREKIS (2).GT .QUE2)    QU E2=REK IS ( 2 ) 
C 

C  FORM    THE    PROMOTION    LIST    AND    PROMOTE 

C  THE    NECESSARY    NUMBER    OF    PEOPLE 

C 

C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NUMERO    NECESARIO    DE    GENTE 

C 

RE=REKIS(2)-CA 

0UE2=RE 

CALL    SROL(K) 

IF(K.LT.QUE2)     GO    TO    24 

CN=CN-0UE2 

A2(CY-CYCLE+1) =0UE2 

DO    23    J=1,0UE2 

TEMP1=CANAVCR0L1 (J) )-6  30 
•       IFCTEMPl.LT. 0)     GO    TO    28 

IFCTEMP1 .GT.100)    GO    TO    27 

CALMCENTBt J) )=CANAVCR0L1 CJ) )-50  0 

CANAVCROLKJ)  )=0 

GO    TO    23 

28  CALMCENT8C  J) )=CANAVCR0L1  (J) ) -400 
CANAVCR0L1CJ) )=0 

GO  TO  23 
27    CALMCENTBt  J) )=CANAV(R0L1 t J)  )-600 
CANAVCR0L1CJ) )=0 

23  CGNTINUE 
QUE3=QUE3+QUE2 
GO  TO  26 

24  DO  25  J=1,K 
TEMP1=CANAV(R0L1( J) J-600 
IFCTEMPl.LT. 0)  GO  TO  29 
IFCTEMP1. GT.100)  GO  TO  227 
CALMCENTBt J) )=CANA VCR0L1 C J) ) -500 
CANAVCR0L1 (J) ) =0 

GO  TO  25 

29  CAL4CENTBC J) )=CANAV ( ROL 1 t J ) J -400 
CANAVCR0L1 (J)  )  =0 

GO  TO  25 
22  7   CALMCENTBt J ) )= CANAV t ROL  1 1 J )  J-600 
CANAVCR0L1 (J) ) =0 

25  CONTINUE 
CN=CN-K 

A2CCY-CYCLE+1)=K 
QUE3=0UE3+K 

26  0=1 

DO  216  I =1 ,80 

IFCCANAVC I ) .GT.O)  GO  TO  216 

ENTC(0)=I 

0  =  0+1 
216   CONTINUE 
C 

C     FORM  THE  PROMOTION  LIST  OF  THE  COMMANDERS 
C 
C     FORMAR  CUADRO  DE  ASCENSO  DE  CAPITANES  DE  FRAGATA 
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KK=1 
LL=1 
MM=1 

C 

C  IN    VEC1     ARE    ALL    THE    ONES    WHO    HAVE    4    YEARS    IN    THE    GRADE 

C 

C     EN  VEC1  ESTAN  TODOS  LOS  QUE  TIENEN  4  ANOS  EN  EL  GRADO 

CF=0 

Kl=l 

K2  =  l 

K3=l 

DO  30  1=1,100 

IF(CAFRA( I ) .LT .400)  GO  TO  31 

IF(CAFRAU)  .GT  .435)     GO    TO    31 

VECKK1)  =1 

K1=K1+1 

GO    TO    330 
C 

C  IN    VEC2    ARE    ALL     THE    ONES    WHO    HAVE    5    YEARS    IN    THE    GRADE 

C 

C  EN    VEC2    ESTAN    TODOS    LOS    QUE    TIENEN    5    ANOS     EN    EL    G 

C 

31  IF(CAFRAU).LT.500)  GO  TO  32 
IF(CAFRA(I ) .GT. 535)  GO  TO  32 
VEC2(K2 )=I 

K2=K2+1 

GO    TO    330 
C 

C  IN    VEC3    ARE    ALL    THE    ONES    WHO    HAVE    6    YEARS     IN    THE    GRADE 

C 

C  EN    VEC3     ESTAN    TODOS     LOS    QUE    TIENEN    6    ANOS    EN    EL    GRADO 

C 

32  IF(CAFRA( I ) .LT.600)  GO  TO  330 
IF(CAFRA{ I) .GT .635  )  GO  TO  330 
VEC3(K3) =1 

K3=K3+1 
C 

C  ADVANCE    ONE    YEAR    THE    COMMANDERS 

C 
330       IF(CAFRAII) . GT . 0 )    CAFRA ( I ) =CAFRA ( I ) +101 

I F(CAFRA( I ) .GT.O)    CF=CF+1 
30  CONTINUE 

K=Kl+K2+K3-3 

IF(REKIS(3).GT.QUE3)    QUE3=RE KI S ( 3) 
C 

C  FORM    THE     PROMOTION    LIST    AND    PROMOTE 

C  THE    NECESSARY    NUMBER    OF    PEOPLE 

C 

C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NUMERO    NECESARIO    DE    GENTE 

C 
C 


RE=REKIS(3)-CN 

QUE3=RE 

CALL    TROL(K) 

IF(K.LT.QUE3)     GO    TO    34 

CF=CF-QUE3 

A3CCY-CYCLE+1) =QUE3 

DO    33    J=1,0UE3 

TEMP1=CAFRA(R0L1 (J) )-600 

IF(TEMPl.LT.O)     GO    TO   38 

IF(TEMPl.GT.lOO)    GO    TO    37 

CANAV(ENTCU)  )  = CAFRA  (  ROL  1  ( J  )  )-500 

CAFRACROLK  J)  )  =0 

GO    TO    33 
38  CANAV lENTC(J) ) =C AFR A( ROL 1 ( J ) )-400 

CAFRAtROLK  J)  )  =0 

GO   TO    33 
37         CANAV (ENTC( J) ) =CAFRA(R0L1 (J) )-600 

CAFRAtROLK  J))=0 
33  CONTINUE 
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c 
c 
c 
c 
c 
c 
c 
c 
c 


QUE4=QUE4+QUE3 
GO    TO    36 

34  DO    35    J  =  1,K 
TEMP1=CAFRA(R0L1 ( J) )-600 
IF(TEMPl.LT.O)     GO    TO    39 
IF(TEMPl.GT.lOO)     GO   TO    337 
CANAV(ENTC( J) ) =CAFRA(ROLl (J) J-500 
CAFRA(  ROLKJ  )  )=0 

GO  TO  35 
39         CANAV(ENTC( J) ) =CAFRA(ROLl (J) )-400 

CAFRA(ROLl (J ) )=0 

GO  TO  35 
337   CANAV(ENTC( J) ) =CAFR A( ROL1 ( J) ) -600 

CAFRA( R0L1 (J) )=0 

35  CONTINUE 
C  F  =  C  F—  K 

A3(CY-CYCLE+1 )=K 
QUE4=QUE4+K 

36  ©=1 

DO    316     1=1 ,100 
IF(CAFRAd)  .GT.O)    GO   TO    316 
ENTD(0)=I 
0  =  0+1 
316      CONTINUE 


C 

c 
c 
c 
c 
c 


c 
c 
c 
c 
c 


c 

c 
c 
c 
c 


FORM  THE  PROMOTION  LIST  OF  THE  LIEUTENANT  COMMANDERS 
FORMAR  EL  CUADRO  DE  ASCENSO  DE  CAPITANES  DE  CORBETA 


KK  =  1 
LL=1 

MM  =  1 

IN    VEC1    ARE    ALL     THE    ONES    WHO    HAVE    4    YEARS    IN    THE    GRADE 
EN    VEC1    ESTAN    LOS    QUE    TIENEN    4    ANOS     EN    EL    GRADO 

co=o 

Kl=l 

K2  =  l 

K3  =  l 

DO    40    1=1, 150 

IF(CORBE( IJ .LT.400 )     GO    TO    41 

IFICORBEU  )  .GT.435)     GO    TO    41 

VEC1(K1)=I 

K1=K1+1 

GO    TO    440 

IN    VEC2    ARE    ALL    THE    ONES    WHO    HAVE    5    YEARS     IN    THE    GRADE 

FN    VEC2     ESTAN    LOS    QUE    TIENEN    5    ANOS    EN    EL    GRADO 

41  IF(CORBE( I ) .LT.500)    GO    TO    42 

IFICORBEU  ).GT  .535  )     GO    TO    42 
VEC2(K2)  =1 
K2=K2+1 
GO    TO    440 

IN    VEC3    ARE    ALL    THE    ONES    WHO    HAVE    6    YEARS    IN    THE    GRADE 

EN    VEC3    ESTAN    LOS    QUE    TIENEN    6    ANOS    EN    EL    GRADO 

IFfCORBEU  )  .LT.600)     GO    TO    440 
IFICORBEU  ).GT.  635)     GO    TO    440 
VEC3(K3 )=I 
K3=K3+1 
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C     ADVANCE  ONE  YEAR  THE  LIEUTENANT  COMMANDER 
C 
440   IF(CQRBE(I).GT.O)  CORBE ( I ) =CORBE ( I ) +101 

IF(CORBE{ I ) .GT .0)  C0=C0+1 
40    CONTINUE 

K  =  K  1  +K  ?  +K  ^—  3 

IF(REKIS(4) .GT .0UE4)  QU E4=REK IS ( 4) 
C 

C  FORM    THE    PROMOTION    LIST    AND    PROMOTE 

C  THE    NECESSARY    NUMBER    OF    PEOPLE 

C 

C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NUMERO    NECESARIO    DE    GENTE 

C 
C 

RE=REKIS(4)-CF 

0UE4=RE 

CALL    CROL( K) 

IF(K.LT .0UE4)    GO    TO    44 

C0=C0-0UE4 

A4CCY-CYCLE+1)  =  QUE4 

DO    43    J  =  1,QUE4 

TEMP1=C0RBE(R0L1 (J ) )-6  0  0 

IF(TEMPl.LT.O)     GO    TO    48 

IF(TEMPl.GT.lOO)     GO    TO    47 

CAFRA(ENTD( J) ) =C0RBE(R0L1 (J) )-500 

CORBECROLHJ))  =0 

GO    TO    43 

48  CAFRA(ENTD(  J)) =CORBE  (ROLKJ)  )-400 
C0RBE(R0L1(J))=0 

GO    TO    43 
47         CAFRA(ENTD( J) ) =C0R3E(R0L1 (J) )-6  00 
C0RBE(R0L1( J))=0 

43  CONTINUE 
0UE5=QUE5+QUE4 
GO    TO    46 

44  DO   45     J  =  1,K 

TEMP 1=C ORB E(RDL1( J) )-6  00 
IFCTEMPl.LT. 0)  GO  TO  49 
IFCTEMP1.GT.100)  GO  TO  447 
CAFRAC  ENTDC J) ) =CORBE (R0L1 (JJ J-500 
C0RBECR0L1CJ ))=0 
GO  TO  45 

49  CAFRAC ENTDC J)) =C0R3E (ROL 1 ( J ) J-400 
C0RBECR0L1 (J))  =0 

GO  TO  45 
447   CAFRAC  ENTDC  J  )}=C0RBECR0Ll(J))-600 
C0RBECR0L1 (J)) =0 

45  CONTINUE 
CO=CO-K 

A4(CY-CYCLE+1)=K 
QUE5=0UE5+K 

46  0=1 

DO    416    1=1,150 

IFCCORBEC I ) .GT.O)    GO    TO    416 

ENTE10)=I 

0=0+1 
416       CONTINUE 
C 

C  FORM    THE     PROMOTION    LIST    OF    THE    LIEUTENANT 

C 

C  FORMAR    CUADRO    DE    ASCENSO    DE    TENIENTES    PRIMEROS 

C 

c 

c 

KK  =  1 
LL  =  1 

MM=1 
C 

C     IN  VEC1  ARE  ALL  THE  CNES  WHO  HAVE  4  YEARS  IN  THE  GRADE 
C 
C     EN  VEC1  ESTAN  LOS  QUE  TIENEN  4  ANOS  EN  EL  GRADO 
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TP  =  0 

Kl=l 

K2=l 

K3  =  l 

DO    50    I =1,200 

IF(TEPRI (I ) .LT.400)    GO    TO    51 

IF(TEPRI ( I ) .GT .435)    GO    TO    51 

VEC1IK1)=I 

K1=K1+1 

GO    TO    550 
C 

C  IN    VEC2    ARE    ALL    THE    ONES    WHO    HAVE    5    YEARS    IN    THE    GRADE 

C 

C  EN    VEC2    ESTAN    LOS    QUE    TI ENEN    5    ANOS    EN    EL    GRADO 

C 

51  IF(TEPRI  (I  J.LT.500)  GO  TO  52 
I F(TEPRI( I ) .GT.535)  GO  TO  52 
V ,102(1(2  )  =  I 

K2=K2+1 

GO    TO    550 
C 

C  IN    VEC3     ARE    ALL    THE    ONES    WHO    HAVE    6    YEARS     IN    THE    GRADE 

C 

C  EN    VEC3     ESTAN    LOS    QUE    TIENEN    6    ANOS    EN    EL    GRADO 

C 

52  IFITEPRIU  ).LT.600)  GO  TO  550 
IFtTEPRI  (I) .GT.635)  GO  TO  550 
VEC3(K3)  =1 

K3=K3+1 
C 

C  ADVANCE    ONE    YEAR    THE    LIEUTENANT 

C 
550       IFCTEPRI  (I  ).GT.O)    T EPR 1 ( I )=TEPR I ( I ) +101 

IFITEPRI (1) .GT.O)     TP=TP+1 
50  CONTINUE 

K=Kl+K2+K3-3 

IF(REKIS(5).GT.0UE5)    QUE5=RE KI S ( 5 ) 
C 

C  FCRM    THE     PROMOTION    LIST     AND    PROMOTE 

C  THE    NECESSARY   NUMBER    OF    PEOPLE 

C 

C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NUMERO    NECESARIO    DE    GENTE 

C 
C 

RE=REKIS(5)-C0 

0UE5=RE 

CALL    QROL(K) 

IF(K.LT.QUE5)     GO    TO    54 

TP=TP-QUE5 

A51CY-CYCLE+1) =QUE5 

DO    53    J=1,0UE5 

TEMP1  =  TEPRKR0L1 (J ) J-600 

IF(TEMPl.LT.O)     GO    TO    58 

IF(TEMPl.GT.lOO)    GO    TO    57 

CORBE(ENTE{ J  ) ) =T EPR K ROL 1 1 J ) )-500 

TEPRKROLKJ))  =0 

GO    TO    53 
58  C0RBE(ENTE(J))=TEPRKR0L1(J) )-400 

TEPRKROLKJ)  )  =0 

GO    TO    53 
57         CORSE  (E  NT  E(  J))  =TEPRKR0L1  (J)  )-60  3 

TEPRKROLKJ)  )  =0 

53  CONTINUE 
QUE6=QUE6+QUE5 
GO    TO    56 

54  DO    55    J=lfK 
TEMP1=TEPRI (ROLl(J) J-6  00 
IF(TEMPl.LT.O)     GO    TO    59 
IF(TEMPl.GT.lOO)    GO   TO    557 
CORBECENTEt J)) =TEPRI ( R0L1 ( J) ) -5  00 
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TEPRKROLK  J)  )  =0 
GO  TO  5  5 

59  CORBE( ENTE( J)) =TEPRI (R0L1 (J)  )-400 
TEPRK  ROLKJ)  )=0 

GO  TO  55 
557   CORBE(ENTE( J)) =TEPRI ( R0L1 ( J) )-6  00 
TEPRHROLKJ  )  )  =  0 

55  CONTINUE 
TP=TP-K 

A5{CY-CYCLE+1)=K 
QUE6=QUE6+K 

56  0=1 

DO    516     1=1,200 
IF(TEPRI (I).GT.O)    GO   TO    516 
ENTF(0)=I 
0=0+1 
516      CONTINUE 

C 

C     FORM  THE  PROMOTION  LIST  OF  THE  LIEUTENANT  J#G. 

C 

C     FORMAR  EL  CUADRO  DE  ASCENSO  DE  TENIENTES  SEGUNDOS 

C 

KK  =  1 

LL  =  1 

MM=1 
C 

C     IN  VEC1  ARE  ALL  THE  ONES  WHO  HAVE  3  YEARS  IN  THE  GRADE 
C 

C     EN  VEC1  ESTAN  LOS  QUE  TIENEN  3  ANOS  EN  EL  GRADO 
C 

TS  =  0 

Kl=l 

K2=l 

K3=l 

DO  60  I =1,230 

IF(TESEC  I) .LT.300)     GO    TO    61 

IF(TESEII) .GT.335)     GO    TO    61 

VEC1(K1)=I 

K1=K1+1 

GO    TO    660 
C 

C  IN    VEC2    ARE    ALL    THE    ONES    WHO    HAVE    4    YEARS    IN    THE    GRADE 

C 

C  EN    VEC2    ESTAN    LOS    QUE    TIENEN    4    ANOS    EN    EL    GRADO 

C 

61  IF(TESE( I) .LT.400)  GO  TO  62 
IF(TESE( I) .GT.435)  GO  TO  62 
VEC2(K2) =1 

K2=K2+1 

GO    TO    660 
C 

C  IN    VEC3    ARE    ALL    THE     ONES    WHO    HAVE    5    YEARS     IN    THE    GRADE 

C 

C  EN    VEC3    ESTAN    LOS    QUE   TIENEN    5    ANOS     EN    EL    GRADO 

C 

62  IF(TESE(  I)  .LT.500)  GO  TO  660 
IF(TESE( I) .GT.535)  GO  TO  660 
VEC3(K3)=I 

K3=K3  +  1 
C 

C     ADVANCE  ONE  YEAR  THE  LIEUTENANT  JUNIOR  GRADES 
C 
660   IF(TESE( I) .GT.OJ  TE SE ( I ) =TESE ( I ) +101 
IFfTESE  (I J.GT.O)  TS=TS+1 

60  CONTINUE 

1/  _  1/    "1   _lI/    Til/   O O 

IF(REKIS(6).GT .0UE6 )    QUE6=REK IS ( 6 ) 
C 

C  FORM    THE     PROMOTION    LIST    AND    PROMOTE 

C  THE    NECESSARY    NUMBER    OF    PEOPLE 

C 
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C  SE    FORMA    EL    CUADRO    DE    ASCENSO    Y    SE    ASCIENDE 

C  AL    NJMERO    NECESARIO    DE    GENTE 

C 

RE=REKIS(6)-TP 

0UE6=RE 

CALL    SEROL(K) 

IF( K.LT.0UE6)     GO    TO    64 

TS=TS-QUE6 

A61CY-CYCLE+1) =0UE6 

DO    63    J=1,0UE6 

TEMP1=TESE(R0L1 (J) )-500 

IFCTEMPl.LT. 0)     GO    TO   68 

IF(TEMPl.GT.lOO)    GO    TO    67 

TEPRKENTFl  J)  )  =TES E ( ROL 1 ( J )  )-40  0 

TESE    (ROLKJ))  =  0 

GO    TO    63 

68  TEPRHENTFC  J)  )=TESE(R0L1(J  )  )-300 
TESE     (ROLK  J)  J  =0 

GO    TO    63 
67  TEPRI (ENTF(J) ) =TESE(R0L1 (J) )-500 

TESE    (R0L1(JJ)=0 

63  CONTINUE 
QUE7=QUE7+0UE6 
GO    TO    66 

64  DO    65    J  =  1,K 
TEMP1=TESE(R0L1( J) J -5 0  0 
IF(TEMPl.LT.O)     GO    TO    69 
IF(TEMPl.GT.lOO)    GO    TO    667 
TEPRKENTFl  J))  =TESE(  ROLK  J)  )  -400 
TESE    (R0L1(J))=0 

GO    TO    65 

69  TEPRI (ENTF( J)) =TESE ( R0L1 { J ) )-3  00 
TESE  (R0L1U))=0 

GO  TO  65 
667   TEPRK  ENTF(  J)  J  =TESE(R0L1(  J)  )-500 
TESE  (R0L1(J))=0 

65  CONTINUE 
TS=TS-K 

A6(CY-CYCLE+1)=K 
0UE7=0UE7+K 

66  0=1 

DO    616     1=1,200 
IF(TESEU).GT.O)    GO    TO    616 
ENTG(0)=I 
0=0  +  1 
616       CONTINUE 

C 
C 

C     FORM  THE  PROMOTION  LIST  OF  THE  ENSIGNS 

C 

C     FORMAR  EL  CUADRO  DE  ASCENSO  DE  ALFERECES  DE  FRAGATA 

C 

C 


KK  =  1 
LL  =  1 

MM=1 
C 

C  IN    VEC1    ARE    ALL    THE    CNES    WHO    HAVE    3    YEARS     IN    THE    GRADE 

C 

C  EN    VEC1     ESTAN    LOS    QUE    TIENEN    3    ANOS     EN    EL    GRADO 

C 

AF  =  0 

Kl  =  l 

K2=l 

K3=l 

DO    70    I =1,200 

IF(AFRA( I) .LT. 300)     GO    TO    71 

IF(AFRA(  I) .GT.335)     GO    TO    71 

VECKK1)  =1 

K1=K1+1 


5"6 


c 
c 
c 
c 
c 


71 


c 
c 
c 
c 
c 


72 


C 
C 
C 


770 
70 


C 
C 
C 
C 
C 
C 

c 
c 


78 

77 
73 

74 


80 

777 
75 


GO  TO  770 

IN  VEC2  ARE  ALL  THE  ONES  WHO  HAVE  4  YEARS  IN  THE  GRADE 

EN  VEC2  ESTAN  LOS  QUE  TIENEN  4  ANOS  EN  EL  GRADO 

IF(AFRA(  I)  .LT.400)  GO  TO  72 

IF(AFRA( I) .GT.435)  GO  TO  72 

VEC2(K2)=I 

K2=K2+1 

GO  TO  770 

IN  VEC3  ARE  ALL  THE  ONES  WHO  HAVE  5  YEARS  IN  THE  GRADE 

EN  VEC3  ESTAN  LOS  QUE  TIENEN  5  ANOS  EN  EL  GRADO 

IF(AFRA( I) .LT. 500)  GO  TO  770 
IF(AFRA{ I) .GT.535)  GO  TO  770 
VEC3(K3)  ^-1 
K3=K3+1 

ADVANCE  ONE  YEAR  THE  ENSIGNS 

IF(AFRA( I J.GT.O)  AFRA( I)=AFRA( I )+101 

IF(AFRA  (IJ.GT.O)  AF=AF+1 

CONTINUE 

K=Kl+K2+K3-3 

IF(REK1S(7).GT.QUE7)    QUE7  =  REK IS ( 7  J 

FORM  THE  PROMOTION  LIST  AND  PROMOTE 
THE  NECESSARY  NUMBER  OF  PEOPLE 

SE  FORMA  EL  CUADRO  DE  ASCENSO  Y  SE  ASCIENDE 
AL  NUMERO  NECESARIO  DE  GENTE 


•TS 


RE=REKIS(7) 
0UE7=RE 
CALL    SPROL(K) 
IF(K.LT.0UE7) 
AF  =  AF-0UE7 
A7(CY-CYCLE+1) 
DO    73    J=1.0UE7 
TEMP1=AFRA(R0L 
IF(TEMPl'.LT.O) 
IFtTEMPL.GT.10 
TESE(ENTGU)  )  = 
AFRA    (ROLl(J)J 
GO    TO    73 
TESE(ENTG(J ) )  = 
AFRA     (ROLKJJ) 
GO    TO    73 
TESE(ENTG(J )  )  = 
AFRA    (ROLKJJ) 
CONTINUE 
0UE8=0UE8+QUE7 
GO    TO    76 
DO    75    J=1,K 
TEMP1=AFRA(R0L 
IF(TEMPl.LT.O) 
IFCTEMP1.GT.10 
TESECENTGt J) )= 
AFRA    (ROLKJJ) 
GO    TO    75 
TESE(ENTG(J) )= 
AFRA    (ROLKJJ) 
GO    TO    75 
TESE( ENTG( J) )= 
AFRA    (ROLKJJ) 
CONT  INUE 
AF=AF-K 
A7(CY-CYCLE+1) 


GO    TO    74 

=  QUE7 

1(J) )-500 
GO    TO   78 
0)    GC    TO    77 
AFRAtROLK  J)  )-400 
=  0 

AFRA(ROLKJ)  J-300 
=  0 

AFRA(ROLKJ)  )-500 
=  0 


1  (J)  )-500 

GO    TO    80 
0)    GO    TO    777 
AFRA(R0L1 (J)  )-400 
=  0 

AFRA(R0L1( J) J-300 
=  0 

AFRA(ROLKJ)  J-500 
=  0 


=  K 


57 


0UE8=0UE8+K 

IF(REKIS(8).GT.QUE8)     QUE8=REKIS ( 8 ) 
76         0=1 

DO    716     I =1,200 

IF(AF-RA<  IJ.GT.O)     GO    TO    716 

ENTH(0)=I 

0  =  0+1 
716       CONTINUE 

KKK=CADET(5) 

DO    79    I =1,KKK 

IF(ENTH( I) .GT.200)     GO    TO    79 

AFRA( ENTHt I ) )=101 
79    CONTINUE 

CADET(5)=CADET (4) 

CADET(4)=CADET (3) 

CADET( 3) =CADET(2) 

CADET(2)=CADET ( 1) 

CADET(1)=ING0 

WRITE( 6,203) 
203       FORMAT(»0',«    SLGO    DE    AVANCEM 

RETURN 

END 


C 

c 
c 
c 
c 
c 
c 
c 


SUBROUTINE  PROL (K) 
C 
C 

C     THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 
C     IN  THE  PROMOTION  LIST  OF  REAR  ADMIRALS 
C 

c 

C     DETERMINA  LA  DISTRIBUCION  EN  EL  CUADRO  DE 
C     ASCENSO  DE  CALM. 


C 

c 


IMPLICIT  INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),     TESE(200),    TEPRK200), 
1CORBE(150),    CAFRA(IOO) ,CANAV(80 ),     CALM(50),    VALM(IO), 
2ENTA{ 10) ,ENTB( 50} ,ENTC( 80) ,ENTD(100) ,ENTE (150) f 
3ENTF(200  ),ENTG(200 ) , ENT H( 200 ) , QUE  1 , QUE  2, QUE  3 , 
4QUE4,QUE5,QUE6 ,QUE7  ,QUE8,VEC1 (2 00 )  , V EC2 ( 2  00  )  , 
5VEC3(200),RCL1 (600)  ,1 X  , K 1 , K3 , K2 , KK , LL , MM , I NGO , 
6  CADET  (5  )  ,REKIS  (8),CY,  ZK100),  A1(50),A2(  50)  ,A3(50)  , 
7A4(5  0) ,A5(50),A6(50),A7(5  0) , CYCLE 

DIMENSION    BALL (10) 

DATA    BALL/2*l,4*2f4*3/ 

A=10 

IF(K.LT.IO)     A=K 

DO    10    1=1,  A 

CALL    ROLNO( I ,BALL) 
10  CONTINUE 

BALL( 1) =1 

BALL(2)=1 

BALL(3)=1 

BALL(4) =2 

BALL(5)=2 

BALL(6)=2 

BALL(7) =3 

BALL(8 )=3 

BALL(9 )=3 

BALL(10)=3 

IF(K.LT.IO)    GO    TO    12 

DO    11    I =10, K 

CALL    ROLNO( I ,BALL) 
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11 

12 


C 
C 
C 
C 
C 
C 


CONTINUE 

KK  =  1 

LL=1 

MM=1 

RETURN 

END 


C 
C 

c 
c 
c 
c 
c 
c 
c 
c 


10 


11 

12 


C 

c 
c 
c 
c 
c 
c 


SUBROUTINE    SROL(K) 


THIS    SUBROUTINE    DETERMINES    THE    DISTRIBUTION 
IN    THE    PROMOTION     LIST    OF    CAPTAINS 

DETERMINA    LA    DISTRIBUCION    EN    EL    CUADRO    DE 
ASCENSO    DE    CANAV. 

IMPLICIT    INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),     TESE(200),     TEPRH200), 
1C0RBE(150),    CAFRA(IOO) ,CANAV(80) ,    CALM(50),    VALM(IO), 
2ENTA( 10) ,ENTB( 50), ENTC( 80) ,ENTD( 100) ,ENTEf 150) , 
3ENTF (2  0  0) ,ENTG(200) , ENTH(200 ) , QUE1 ,QU E2, QU E3, 
40UE4,QUE5,QUE6,QUE7,QUE8,VEC1(200) , VEC2  1200) , 
5VEC3(200  ),R0L1  (600  )  , IX ,K 1, K3, K2, KK , LL,MM, INGO, 
6CADET(  5) ,REKIS(8) ,CY,Z1(100) , Al (50) , A2(50) ,A3(50), 
7A4(50) ,A5(50),A6(50),A7(50),CYCLE 

DIMENSION    BALL(IO) 

DATA    BALL/2* '■1.4*2,4*3/ 

A=10 

IF(K.LT.IO)     A=K 

DO    10    1=1, A 

CALL    ROLNOt I, BALL) 

CONTINUE 

BALL( 1)=1 

BALL(2  )  =  1 

BALL(3) =1 

BALL(4)=2 

BALL(5)=2 

BALL16) =2 

BALL(7)=3 

BALL(8  )=3 

BALL(9)=3 

BALL( 10)=3 

IFCK.LT.10)    GO    TO    12 

DO    11    I=10,K 

ROLNO( I ,BALL) 
INUE 


CALL 

CO  NT 

KK=1 

LL=1 

MM=1 

RETURN 

END 
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SUBROUTINE  TROL(K) 
C 
C 

C     THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 
C     IN  THE  PROMOTION  LIST  OF  COMMANDERS 
C 

c 

C     DETERMINA  LA  DISTRIBUCION  EN  EL  CUADRO  DE 

C     ASCENSO  DE  CAFRA. 

C 

c 

IMPLICIT  INTEGER(A-Y) 

COMMCN/NADA/    AFRA(200) ,     TESE(200),    TEPRK200), 
1CORBEQ50),     CAFRA(100),CANAV(80),     CALM(50),     VALM(IO), 
2ENTA(1D)  ,ENTB(5  0)  , E NTC { 80)  , ENT D ( 100 ) , ENT E ( 150  ) , 
3ENTF(20  0),ENTG( 2  00)  ,ENTH(200) , QUE  1 , QUE2 »0UE3 t 
4GUE4  <  OU  E5  ,  OU  Eo  *  QUE7  v  OU  L:3  ,  V  EC  1  (  200  ) ,  V  EC2  (  20  0  ) , 
5VEC3(200)  ,R0L1(600)  ,1 X,K1,K3 ,K2,KK,LL,MM,  INGO, 
6CADET( 5),REKIS (8),CY,Z1( 100) ,A1( 50) ,A2( 50)  ,A3(50)  , 
7A4(5D)»A5(50),A6(5J)tA7(50),CYCLE 

DIMENSION    BALL ( 10) 

DATA    BALL/2*1,4*2,4*3/ 

A  =  10 

IFCK.LT.10)    A=K 

DO    10     1=1, A 

CALL    ROLNO( I ,BALL) 

10  CONTINUE 
BALLd  )=1 
BALL(2) =1 
BALL( 3)=1 
BALL(4) =2 
BALL( 5)=2 
BALL(6)=2 
BALL(7) =3 
BALL(8)=3 
BALL(9)=3 
BALL(IO) =3 

IF(K.LT.IO)    GO     TO    12 
DO    11    1=10, K 

CALL  RCLN01I ,BALL) 

11  CONTINUE 

12  KK=1 
LL  =  1 
MM  =  1 
RETURN 
END 

C 
C 

c 
c 
c 

c 

SUBROUTINE  CROL(K) 
C 
C 

C     THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 
C     IN  THE  PROMOTION  LIST  OF  LIEUTENANT  COMMANDERS 
C 

c 

C     DETERMINA  LA  DISTRIBUCION  EN  EL  CUADRO  DE 

C     ASCENSO  DE  CORBE. 

C 

c 

IMPLICIT  INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),     TESE(200),    TEPRK200), 
1CORBEU50),    CAFRA(IOO)  ,CANAV(80  ),    CALM{50),    VALM(IO), 
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2ENTA( 10),ENTB(50) , ENTC ( 80)  ♦ ENTD ( 100 )  ,  ENTE {  150 )  , 
3 ENT F( 200), ENTG(200 ) ,ENTH(200) , QUE  1 , QUE  2, QUE  3, 
4QUE4,QUE5,QUE6 ,QUE7 ,  QUE8 , VEC1 (2  00 ) , V EC2 ( 23 3  ) , 
5VEC3(2  00),R0L1( 600 )  , I  X  ,K1 , K3 , K2 , KK , L L, MM , I NGO, 
6  CADET (5 ) ,REKIS [8 ),CY, ZlllOO), A1(50),A2[50),A3(50), 
7A415  3)  ,A5153),A6(50)  ,A7(5  0)  , CYCLE 

DIMENSION  BALK  10) 

DATA  BALL/ 4*1, 3*2, 3*3/ 

DO  10  1=1, K 

CALL  ROLNOU,BALL) 
10    CONTINUE 

KK=1 

LL=1 

MM  =  1 

RETURN 

END 
C 
C 

c 
c 
c 
c 

SUBROUTINE  QROL[K) 
C 
C 

C     THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 
C     IN  THE  PROMOTION  LIST  OF  LIEUTENANTS 
C 

c 

C     DETERMINA  LA  DISTRIBUCION  EN  EL  CUADRO  DE 

C     ASCENSO  DE  TEPRI. 

C 

c 

IMPLICIT  INTEGER(A-Y) 

COMMON/NADA/    AFRA(  200)  ,     TESE(200),     TEPRK200), 
1C0RBEI150),     CAFRA(100),CANAV(80),     CALM150),     VALM(IO), 
2ENTA( 13)  ,ENTB(50)  , E NTC ( 80)  , ENT D ( 103 ) , ENT E ( 150 ) , 
3ENTF(20  0  ),ENTG(200)  ,ENTH(2  00) , QUE  1 » QUE 2 » QUE3  , 
4QUE4,QUE5,QUE6,QUE7,QUE8,VECl(200),VEC2t  2  00), 
5VEC3(20  0)  ,ROL116  00)  ,1 X , Kl , K3 , K2 , KK, L L, MM , INGO, 
6CADET(5),REKIS ( 8 ) , CY, Z 1 ( 100 ) , A  1  ( 50 )  , A2( 5 0)  ,A3{ 50)  , 
7A4(50) , A5C50), A6 (5 3 ) , A7 (53 ) ,CYCLE 
DIMENSION    BALL(IO) 
DATA    BALL/4*1,3*2,3*3/ 
DO    13    I=1,K 
CALL    ROLNOt I ,BALL) 
10  CONTINUE 

KK  =  1 
LL  =  1 
MM=1 
RETURN 
END 
C 
C 
C 
C 
C 

c 

C 

SUBROUTINE  SEROL(K) 
C 

c 

C  THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 

C  IN  THE  PROMOTION  LIST  OF  L I EUT EN ANTS J . G. 

C 

C 

C  DETERMINA    LA    DISTRIBUCION    EN    EL    CUADRO    DE 

C  ASCENSO    DE    TESE. 
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c 
c 

IMPLICIT    INTEGER(A-Y) 

COMMCN/NADA/    AFRA(200),     TESE(200),     TEPRIC200), 
1C0RBF(150),     CAFRA( 100) , CANAV(80) ,     CALM(50),     VALM(IO), 
2ENTA( 1  J)  .ENTBI5  3)  , ENTC(83)  , ENTD(IOD) , ENTEC150)f 
3ENTF(200) ,ENTG( 200)  ,ENTH(2  00)  , QUE  1 , QUE2 , QUE3 , 
4QUE4tOUE5tOUE6,OUE7tOUE8tVECl(200),VEC2(200), 
5VEC3(2  00)  ^GLKoOOl  ,IX,K1  , K3 , K2 , KK, L L , MM ,  INGO, 
6CADET(5  ),R5KIS  (8),CY,Zll  100)  ,  AH50)  ,A2(  5  0)  ,A3(50)  , 
7A4(53)  , A5(50) ,  A6 (50  ), A7 (50)  , CYCLE 

DIMENSION    EALL(IO) 

CATA    BALL/4-1, 3-2,3*3/ 

DO    10    1=1, K 

CALL    ROLNO( I ,BALL) 
10  CONTINUE 

KK  =  1 

LL  =  1 

MM=1 

C  I  Ur\iV 

END 
C 
C 
C 
C 

c 

SUBROUTINE  SPROL(K) 
C 

c 

C     THIS  SUBROUTINE  DETERMINES  THE  DISTRIBUTION 

C     IN  THE  PROMOTION  LIST  OF  ENSIGNS 

C 

c 

C     DETERMINA  LA  DISTRIBUCION  EN  EL  CUADRO  DE 
C     ASCENSO  DE  AFRA. 


C 
C 


c 

C 

c 

C 
C 
C 

c 

C 

c 
c 

C 
C 
C 


IMPLICIT     INTEGER(A-Y) 

COMMON/NADA/    AFRA(203),     TESE(200),    TEPRH200), 
1C0RBE(150),     CAFRA( ICO) ,CANAV( 80) ,     CALM(50),     VALM(IO), 
2ENTA(10  )  , ENTBI50) ,  ENTC(80) ,  ENTD( 100 ) , EN TE (  150 ) , 
3ENTF(  200) ,ENT3( 200)  ,E NTH  (2 00)  ,  QUE1  ,QUE2  ,  QUE3  , 
4OUE4,OUE5,0UE6,QUE7,0UE8,  VECK  2  00)  ,VEC2(  200)  , 
5VEC3(230) , RCL1 (603 ) , IX,K1,K3 ,K2 ,KK,LL,MM,  INGO, 
6CADET( 5),REKIS(S),CY,21(100)  ,A1(50)  ,A2(50)  ,A3(50)  , 
7A4(50) , A5(50),  A6(50  ), A7(50) , CYCLE 

DIMENSION    BALK  10) 

DATA    BALL/4-1, 3*2, 3*3/ 

DO    10    1=1, K 

CALL    ROLNOt I ,BALL) 
10  CONTINUE 

KK=1 

LL  =  1 

MM=1 

RETURN 

END 
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SUBROUTINE    ROL NO ( I , BALL  ) 
C 

c 
c 
c 

C  ESTA    SUBRUTINA    DETERMINA    EL    PUESTO    EN    EL 

C  CUADRO    DE    ASCENSO    DE    CUALQUIER    GRADO 

C 

C  THIS    SUBROUTINE     DETERMINES    THE     PLACE    IN 

C         •  THE    PROMOTION    LIST     IN    ANY    GRADE 

C 

C 

c 

IMPLICIT    INTEGER(A-Y) 


COMMON/NADA/    AFRAC200),     TESE(200),    TEPRI(200)i 
ICORBEt 150) ,     CAFRAt  100} ,CANAVi 80)  ,    CALM150),     VALM(IO) 
2ENTA(10 ) ,  ENTB(50), ENTC(80), ENTD( 100) ,EUTE(  150), 
3ENTF(23D) ,E NTS (2 00) ,E NTH (200) , QUE1 , QUE2 , QUE3 , 
40UE4,QUE5,QUE6,0UE7,QUE8,VEC1( 200 ) , VEC2 ( 2 00) , 
5VEC3(2  00) , R0L1  (600  )  , IX , Kl , K3 , K2 , KK , L L , MM ,  INGO, 
6CADET(  5),REKIS(8),CY,Z1(100),A1(50),A2(50),A3(50), 
7A4(50) , A5( 50), A6 ( 5 0  )  , A7 ( 50 ) ,  CYCLE 

DIMENSION    3ALL(10) 

IX=IX*65539 

Z=0. 5+ 1X^0.232 83 06 E-9 

J=10*Z+1 

TJ=BALL( J) 

K4=K1+K2+K3 

KKK=KK+LL+MM 

IF(KKK.EQ.K4)    GO    TO    20 

GO    TO    (11,12,13)  ,TJ 

11  IF(KK.GE.Kl)     SO    TO    12 
ROL It  I  )=VEC1(<K) 
KK=KK+1 

GO    TO    20 

12  IF(LL.GE.K2)    30    TO     13 
ROLK  I  )=VEC2(LL) 
LL=LL+1 

GO    TO    20 

13  IFCMM.GE.K3)     GO    TO    11 
ROLK  I  )  =  VEC3(«4M) 
MM=MM+1 

20         RETURN 
END 


C 
C 

c 
c 
c 
c 
c 


c 
c 


BLOCK    DATA 

IMPLICIT     INTEGER(A-Y) 

COMMON/NADA/    AFRA(200),     TESE(200),    TEPRU200), 
1C0RBE(150),     CAFRA( ICO) ,CANAV( 80) ,    CALM(50),     VALM(IO), 
2ENTA(10)  . ENT3(5  0) , ENTC(SO)  ,  ENTDdOD ), ENTE(  150), 
3ENTF( 20  0),ENT3l 2  00)  ,ENTH(200)  ,QUE1 ,QUE2 , 0UE3  , 
40UE4,0UE5,QUE6 ,0UE7 ,0UE8 , VEC 1 ( 200 ) , VEC21 200) , 
5VEC3(200 ) ,R0L1 (600 ) ,1 X,K1 ,K3,K2 ,KK,LL,MM, INGO, 
6CADEK  5),REKIS(8),CY,Z1(100)  , All  50)  ,A2(50)  ,A3(50)  , 
7A4(50) , A5( 50 ),  Ac (50  )  , A7(50) , CYCLE 

DATA    QUE  1, QUE 2 ,0UE3 , QUE4 , QUE  5 , QUE6 , QUE7 , QU E8/ 0 , 0 , 0, 0 , 0 

DATA    IX,KK,LL, MM/5, 1, 1, 1/ 

END 
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APPENDIX  D  CARD  ASSEMBLY 


INPUT  SEQUENCE 


NUMBER  OF  SIMULATION  CYCLES 


PI  REQUIREMENTS 


P2  REQUIREMENTS 


P3  REQUIREMENTS 


P4  REQUIREMENTS 


P5  REQUIREMENT? 


P6  REQUIREMENTS 


P7  REQUIREMENTS 


P8  REQUIREMENTS 


CADETS  IN  FIFTH  YEAR 


CADETS  IN  FOURTH  YEAR 


CADETS  IN  THIRD  YEAR 


CADETS  IN  SECOND  YEAR 


NUMBER  OF  CADETS  IN  FIRST  YEAR 


VICE  ADMIRAL  (P8)  DATA 


REAR  ADMIRAL(P7)  DATA 


CAPTAIN(P6)  DATA 


COMMANDER  (P5)  DATA 


LT.  C0MMANDER(P4)  DATA 


LT.(P3)  DATA 


LT.J.G.(P2)  DATA 


"\ 


ENSIGN  (PI)  DATA 


DATA  J.C.L 


-PROGRAM' 


PROGRAM  J.C.L. 


6U 


DATA  INPUT 

A.  P1    to  P8  DATA  CARDS 

There  is  one  card  for  each  officer  in  the  system.  A  four-digit 
number  is  punched  in  col.  1  -k   with  the  first  two  digits  identifying 
years  in  the  particular  grade  and  the  second  two  digits  signifying 
total  years  in  the  system.  The  digit  pairs  are  right  adjusted  if 
less  than  10. 

B.  CADETS  IN  EACH  YEAR  CARDS 

The  total  number  of  cadets  goes  in  col.  1-1;.  If  the  number  to 
be  punched  is  less  than  four  digits,  it  can  go  in  any  of  the  four 
columns  mentioned. 

C.  P8  to  P1  REQUIREMENTS  CARDS 

The  total  number  of  officer  required  goes  in  col.  1 ~k  with  the 
same  generality  as  cards  in  B. 

D.  NUMBER  OF  SIMULATION  CYCLES   CARD 

The  number  of  years  goes  in  col.  1 -h,   with  the  same  generality 
as  cards  in  B. 

E.  INPUT  SEQUENCE  CARDS 

There  has  to  be  one  card  for  each  year  with  the  total  number 
of  new  cadet  inputs  on  each  card.  This  has  to  be  punched  in  col. 
1-1;,  with  the  same  generality  as  cards  in  B. 
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OUTPUTS 

The  output  is  produced  in  four  forms.  To  produce  any  of  the  different 
outputs  one  has  to  call  it  with  the  number: 

1 .  To  produce  an  output  listing  of  all  the  contents  of  the  data 
base. 

3.  To  produce  a  plotting  for  each  grade  of  the  quantity  of  people 
in  the  X  axis  and  the  year  of  simulation  in  the  X  axis. 
This  call  has  to  be  at  the  end  of  the  simulation  but  in  order 
to  fill  the  necessary  vectors  of  information  one  has  to  call 
this  subroutine  with  the  number  2  each  cycle  of  the  simulation. 

I;.  To  produce  a  table  shewing  the  number  of  people  promoted  from 
one  grade  to  the  next  each  year  of  simulation. 

£.  To  produce  a  listing  of  the  values  of  requirements  in  each 
grade  each  year,  the  value  of  the  input  to  the  system  each 
year,  the  cycle  number,  and  the  number  of  cadets  in  each  year 
of  the  academy,  each  year. 

An  example  of  output  produced  with  the  number  3  is  presented  in  the 
next  page. 
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SAMPLE    OUTPUT 


TENIENTES    SEGUNOOS       <TESE) 

1.00  5.75  10.50  15.25 

* 


166.00       + 


152.67      + 


139.33       ♦ 


126.00       + 


112.67      ♦ 

* 
* 
* 
* 
» 
* 


99. 33       + 


86.00       + 


**+*********♦***  *****«■♦■«■» 
1.00  5.75 


li«!**«:**+*****«**i  +  *** 

10.50 


♦  ♦K*********.******************* 

15.25 


20.00 
****** 

■♦■ 
* 
* 
* 

* 
* 
* 
* 
* 
+ 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
.    * 


* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
•t- 
******** 
20.00 


166.00 


152.67 


139.33 


126.00 


112. 67 


99.33 


86.00 


X-SCALE:        ••*"=     0.23  7E    00    UNITS 
Y-SCALF:       "*"  =    0.133E    01    UNITS 
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